主題: 這是我用 fortran95寫的...不知道錯再哪...能幫我看一下嗎?? 感謝

[a84652380]

program main
      implicit none
      real::n,y,t,v
      real,parameter::a=6900,m=4*10**5
      open(10,file="test.txt")
      v=2
      n=(m/a**3)**0.5
      t=(y/3*v)
50    y=(1/n)*(4*sin(n*t)-3*n*t)*v
      if(y==12043) then
        write(10,100)t
        write(*,100)t
       
        else
          if(y>12043) then
            t=t+1.27
           
            goto 50
            else
if(y<12043) then
                t=t-0.52
               
                goto 50
                endif
                endif
                endif
100   format("t=",f8.2)
      end             

[被騎上班的老]

大學畢業後就沒在用了，我特地下載了 gfortran -- FORTRAN 95 compiler 試了一下

第一行的 PROGRAM MAIN 和 IF(...) 都要內縮，因為 1-6 只能放 LABEL ，這樣就編的過了。
至於程式邏輯我沒看。