anchor.diff:     END IF
   
   
  -   END SUBROUTINE ProgAbort ! ( Message [, TrapErrors, TimeWait, ErrLevel] )
  +   END SUBROUTINE ProgAbort
   !=======================================================================
      SUBROUTINE ProgPause()
   
  
positive.code: 
        WRITE (UnIn, IOSTAT=ErrStat2)  TimeOut1                                  ! The first output time
           IF ( ErrStat2 /= 0 ) THEN
              CALL CheckError( ErrID_Fatal, 'Error writing TimeOut1 to the FAST binary file.' )
              RETURN
           END IF
  
        WRITE (UnIn, IOSTAT=ErrStat2)  TimeIncrement                             ! The time increment (between subsequent outputs)
           IF ( ErrStat2 /= 0 ) THEN
              CALL CheckError( ErrID_Fatal, 'Error writing TimeIncrement to the FAST binary file.' )
              RETURN
           END IF
  
  
negative.code:       ! This routine displays some text about copyright and license.
  
     TYPE( ProgDesc ), INTENT(IN)           :: ProgInfo    ! Contains the name and version info
     CHARACTER(*),     INTENT(IN), OPTIONAL :: AdditionalComment
  
        ! local variable
     INTEGER(IntKi)         :: DateLen   ! the trim length of the ProgInfo date field
  