Play with my 'crops'

Main Menu

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