Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
Help! The following simple one is unable to give reasonable results
integer I,I1,I2,I3,NROWS,RBIN,VRBIN,VPHIBIN real VR,VPHI,RR,NUMBER REAL DISTRIB (11,11,11) OPEN(1000,FILE='bin0d3new.DAT',STATUS = 'OLD') OPEN(1001,FILE='DISTRIB.DAT') NROWS = 121 DO 20 I = 1, NROWS READ (1000, '(4g14.6)' ) VR, VPHI, RR, NUMBER VRBIN = INT...
