Fortran Run Time Error

[Chernard]

Hi everybody..

İ am study for astronomy and i am trying calculate some quantity about stars with fortran programming. İ am writing program with trial and error method. İ dont take any lesson about it. So i slog on for solving problems in program.

IMPLICIT REAL*8(A-H,O-Z)
dimension AM(1500),RL(1500),DNL(1500),TL(1500),PL(1500),ALRL(1500)
+,wrot(1500),amomI(1500),angm(1500),gradR(1500),gradA(1500),
+ cpheatS(1500),wMM(1500),oma(1500),delta(1500),Phi(1500)

OPEN(UNIT=5,STATUS='OLD',FORM='FORMATTED',FILE='rotZams.d')
OPEN(UNIT=3,STATUS='UNKNOWN',FORM='FORMATTED',FILE='cikti.kam.d')
OPEN(UNIT=7,STATUS='UNKNOWN',FORM='FORMATTED',FILE='cikti2.kam.d')
do i=1,1500

read(5,'(i5,18e20.5)')ii,AM(i),RL(i),DNL(i),TL(i),PL(i),ALRL(i),
+wrot(i),amomI(i),angm(i),bEalmd,gradR(i),gradA(i),cpheatS(i),
+wMM(i),oma(i),delta(i),Phi(i)

end do

call AMo (i ,AM ,RL ,DNL ,TL ,PL ,ALRL ,
+wrot ,amomI ,angm ,bEalmd ,gradR ,gradA ,cpheatS
+, wMM ,oma ,delta , Phi)


end program angular


When i compile the program there is no problem. Then when i run the program it gives me :

Bad Value during Floating integer value.

My data files first 20 line ;

1 0.00000E+00 0.00000E+00 0.80214E+02 0.15489E+08 0.16983E+18 0.00000E+00 0.23794E-07 0.00000E+00 0.00000E+00 0.10000E+01 0.43997E+00 0.39713E+00 0.33975E+09 0.60819E+00 0.19200E+01 0.98700E+00 -0.32180E-03
2 0.83404E+30 0.13540E+10 0.79745E+02 0.15429E+08 0.16819E+18 0.26070E+32 0.23794E-07 0.38226E-02 0.90955E-10 0.10000E+01 0.44433E+00 0.39714E+00 0.33975E+09 0.60820E+00 0.19200E+01 0.98702E+00 0.66239E-03
3 0.85597E+30 0.13658E+10 0.79737E+02 0.15428E+08 0.16816E+18 0.26723E+32 0.23794E-07 0.42282E-02 0.10060E-09 0.10000E+01 0.44387E+00 0.39714E+00 0.33975E+09 0.60820E+00 0.19051E+01 0.98702E+00 -0.31759E-03
4 0.87790E+30 0.13775E+10 0.79729E+02 0.15427E+08 0.16813E+18 0.27376E+32 0.23794E-07 0.46407E-02 0.11042E-09 0.10000E+01 0.44343E+00 0.39714E+00 0.33975E+09 0.60820E+00 0.19051E+01 0.98702E+00 -0.31756E-03
5 0.89983E+30 0.13889E+10 0.79721E+02 0.15426E+08 0.16810E+18 0.28028E+32 0.23794E-07 0.50603E-02 0.12040E-09 0.10000E+01 0.44300E+00 0.39714E+00 0.33975E+09 0.60820E+00 0.19051E+01 0.98702E+00 -0.31753E-03
6 0.92176E+30 0.14002E+10 0.79713E+02 0.15425E+08 0.16807E+18 0.28680E+32 0.23794E-07 0.54867E-02 0.13055E-09 0.10000E+01 0.44259E+00 0.39714E+00 0.33975E+09 0.60820E+00 0.19051E+01 0.98702E+00 -0.31750E-03
7 0.94599E+30 0.14124E+10 0.79704E+02 0.15424E+08 0.16804E+18 0.29399E+32 0.23794E-07 0.59660E-02 0.14196E-09 0.10000E+01 0.44216E+00 0.39714E+00 0.33975E+09 0.60821E+00 0.19051E+01 0.98702E+00 -0.31747E-03
8 0.97023E+30 0.14244E+10 0.79695E+02 0.15423E+08 0.16801E+18 0.30118E+32 0.23794E-07 0.64536E-02 0.15356E-09 0.10000E+01 0.44173E+00 0.39714E+00 0.33975E+09 0.60821E+00 0.19051E+01 0.98702E+00 -0.31744E-03
9 0.99447E+30 0.14363E+10 0.79687E+02 0.15422E+08 0.16798E+18 0.30836E+32 0.23794E-07 0.69495E-02 0.16535E-09 0.10000E+01 0.44133E+00 0.39714E+00 0.33975E+09 0.60821E+00 0.19051E+01 0.98702E+00 -0.31741E-03
10 0.10187E+31 0.14479E+10 0.79678E+02 0.15421E+08 0.16795E+18 0.31554E+32 0.23794E-07 0.74535E-02 0.17735E-09 0.10000E+01 0.44093E+00 0.39714E+00 0.33975E+09 0.60821E+00 0.19051E+01 0.98702E+00 -0.31738E-03
11 0.10455E+31 0.14605E+10 0.79669E+02 0.15419E+08 0.16792E+18 0.32346E+32 0.23794E-07 0.80199E-02 0.19082E-09 0.10000E+01 0.44051E+00 0.39714E+00 0.33975E+09 0.60821E+00 0.19051E+01 0.98702E+00 -0.31734E-03
12 0.10723E+31 0.14730E+10 0.79660E+02 0.15418E+08 0.16789E+18 0.33138E+32 0.23794E-07 0.85961E-02 0.20454E-09 0.10000E+01 0.44010E+00 0.39714E+00 0.33975E+09 0.60821E+00 0.19051E+01 0.98702E+00 -0.31731E-03
13 0.10991E+31 0.14852E+10 0.79650E+02 0.15417E+08 0.16785E+18 0.33928E+32 0.23794E-07 0.91821E-02 0.21848E-09 0.10000E+01 0.43971E+00 0.39714E+00 0.33975E+09 0.60821E+00 0.19051E+01 0.98703E+00 -0.31727E-03
14 0.11258E+31 0.14973E+10 0.79641E+02 0.15416E+08 0.16782E+18 0.34718E+32 0.23794E-07 0.97777E-02 0.23265E-09 0.10000E+01 0.43933E+00 0.39714E+00 0.33975E+09 0.60821E+00 0.19051E+01 0.98703E+00 -0.31724E-03
15 0.11554E+31 0.15103E+10 0.79631E+02 0.15415E+08 0.16779E+18 0.35591E+32 0.23794E-07 0.10447E-01 0.24858E-09 0.10000E+01 0.43893E+00 0.39714E+00 0.33975E+09 0.60821E+00 0.19051E+01 0.98703E+00 -0.31721E-03
16 0.11850E+31 0.15232E+10 0.79621E+02 0.15413E+08 0.16775E+18 0.36462E+32 0.23794E-07 0.11128E-01 0.26478E-09 0.10000E+01 0.43853E+00 0.39714E+00 0.33975E+09 0.60821E+00 0.19051E+01 0.98703E+00 -0.31717E-03
17 0.12146E+31 0.15358E+10 0.79612E+02 0.15412E+08 0.16772E+18 0.37333E+32 0.23794E-07 0.11821E-01 0.28126E-09 0.10000E+01 0.43815E+00 0.39714E+00 0.33975E+09 0.60821E+00 0.19051E+01 0.98703E+00 -0.31713E-03
18 0.12442E+31 0.15483E+10 0.79602E+02 0.15411E+08 0.16768E+18 0.38202E+32 0.23794E-07 0.12525E-01 0.29801E-09 0.10000E+01 0.43778E+00 0.39714E+00 0.33975E+09 0.60821E+00 0.19051E+01 0.98703E+00 -0.31710E-03
19 0.12770E+31 0.15618E+10 0.79591E+02 0.15410E+08 0.16765E+18 0.39162E+32 0.23794E-07 0.13316E-01 0.31683E-09 0.10000E+01 0.43739E+00 0.39714E+00 0.33975E+09 0.60821E+00 0.19051E+01 0.98703E+00 -0.31706E-03
20 0.13097E+31 0.15751E+10 0.79581E+02 0.15408E+08 0.16761E+18 0.40121E+32 0.23794E-07 0.14120E-01 0.33598E-09 0.10000E+01 0.43700E+00 0.39714E+00 0.33975E+09 0.60821E+00 0.19051E+01 0.98703E+00 -0.31702E-03


As i thing it is about integer type. But i can't solve the problem.. Please help me

İf anyone want the files. İ can send..

 

[salgerman]

You have specified the wrong format string for your READ command...but never mind and don't try to correct it, instead, simply stop using it just do READ(5,*)

 

[Chernard]

Thanks for your answer