Parent Directory | Revision Log | Revision Graph | Patch
revision 1.3 by jmc, Tue Jan 9 22:26:03 2007 UTC | revision 1.4 by jmc, Fri Oct 19 03:22:25 2007 UTC | |
---|---|---|
# | Line 63 C Read variables from the pickup f | Line 63 C Read variables from the pickup f |
63 | ||
64 | IF ( PTRACERS_pickup_read_mdsio ) THEN | IF ( PTRACERS_pickup_read_mdsio ) THEN |
65 | ||
66 | WRITE(fn,'(A,I10.10)') 'pickup_ptracers.',myIter | IF ( pickupSuff.EQ.' ' ) THEN |
67 | WRITE(fn,'(A,I10.10)') 'pickup_ptracers.',myIter | |
68 | ELSE | |
69 | WRITE(fn,'(A,A10)') 'pickup_ptracers.',pickupSuff | |
70 | ENDIF | |
71 | prec = precFloat64 | prec = precFloat64 |
72 | ||
73 | IF ( usePickupBeforeC54 ) THEN | IF ( usePickupBeforeC54 ) THEN |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |