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

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s