anchor.diff:   250    CONTINUE
         RETURN
   C
  -      END+      END
  
positive.code: C      OPEN (LOUT, FORM='FORMATTED', STATUS='UNKNOWN',
  C     1 FILE='OUTPUT.txt')
  C
        MARK=''
        DATATYPE=''
        TEXT=''
  
negative.code:      &                   DATATYPE,LOUT,THERM1,THERM2,THERM3,J_elem,
       &                 T_min,T_max)
  C
  C     CLOSE(LOUT)
        WRITE(LOUT,*) 'RSAGATPFITHASFINISHEDONEINPUTEOF'
        FLUSH(LOUT)
        GOTO 34501
  
  34511 CONTINUE
  C
        END
  C***********************************************************************
  