Sun Studio 12: Fortran Programming Guide

10.5.1 First Steps at Debugging

There are some steps you can try immediately to determine the cause of errors.

Replace:


    DO I=1,N
      ...
      CALL SNUBBER(I)
      ...
    ENDDO

With:


      DO I1=1,N
      I=I1
      ...
      CALL SNUBBER(I)
      ...
    ENDDO