Changeset 768
 Timestamp:
 Oct 1, 2012 2:02:17 PM (11 years ago)
 Location:
 trunk
 Files:

 9 edited
Legend:
 Unmodified
 Added
 Removed

trunk/fsource/pypowder.for
r415 r768 15 15 16 16 REAL*4 DTT(0:NPTS1),PRFUNC(0:NPTS1) 17 REAL*4 TTHETA,SIG,GAM,SPH 18 INTEGER*4 NPTS,I 17 19 FW = (2.355*SQRT(SIG)+GAM)/100.0 18 20 FMIN = 10.0*(FWSPH*COSD(TTHETA)) … … 49 51 Cf2py depend(NPTS) SLPART 50 52 53 INTEGER*4 NPTS 54 REAL*4 TTHETA,SIG,GAM,SPH 51 55 REAL*4 DTT(0:NPTS1),DPRDT(0:NPTS1),SIGPART(0:NPTS1), 52 56 1 GAMPART(0:NPTS1),SLPART(0:NPTS1),PRFUNC(0:NPTS1) … … 77 81 Cf2py depend(NPTS) PRFUNC 78 82 83 INTEGER*4 NPTS 84 REAL*4 TTHETA,SIG,GAM,SPH 79 85 REAL*4 DTT(0:NPTS1),PRFUNC(0:NPTS1) 80 86 FW = (2.355*SQRT(SIG)+GAM)/100.0 … … 112 118 Cf2py depend(NPTS) SLPART 113 119 120 INTEGER*4 NPTS 121 REAL*4 TTHETA,SIG,GAM,SHL 114 122 REAL*4 DTT(0:NPTS1),DPRDT(0:NPTS1),SIGPART(0:NPTS1), 115 123 1 GAMPART(0:NPTS1),SLPART(0:NPTS1),PRFUNC(0:NPTS1) … … 146 154 cf2py depend(NOUT) YOUT 147 155 156 INTEGER NIN,NOUT 148 157 REAL XIN(NIN),YIN(NIN) 149 158 REAL XOUT(NOUT),YOUT(NOUT)
Note: See TracChangeset
for help on using the changeset viewer.