Fortran 90 error

SNPLDlit.f90:93.28:

 if (p(i) < 0.01) GOTO 111
 1
SNPLDlit.f90:141.10:

111 ENDDO
 2
Warning: Deleted feature: GOTO at (1) jumps to END of construct at (2)
SNPLDlit.f90:95.29:

 if (p(j) < 0.01) GOTO 222
 1
SNPLDlit.f90:140.12:

 222 END DO
 2
Warning: Deleted feature: GOTO at (1) jumps to END of construct at (2)

Actually, the way that Fortran90 is supposed to handle going to end of loop is using "cycle";
     do 1,i=1,n
      ...
c    goto 1   ! this is the F77 way
      cycle    ! this is the F90 way
...
1  enddo

The other "simple way" is to use "continue" :
!   do 1 i=1,n ! replaced by
    do 1001 i=1,n
     ...
     goto 1
     ...
1 continue
1001 enddo

About these ads