anchor.diff:        
         IF ( ErrID /= ErrID_None ) THEN
            CALL WrScr( NewLine//TRIM(Msg)//NewLine )
  -         IF (UnErrLog > 0) THEN
  -            WRITE (UnErrLog,'(/,A)')  TRIM(Num2LStr(ErrID))//':  '//Msg
  -         END IF
            
            IF ( ErrID >= AbortErrLev ) THEN
               IF (UnErrLog > 0) CLOSE(UnErrLog)
  
positive.code:       
     END DO ! n_t_global
    
     IF (UnErrLog > 0) CLOSE(UnErrLog)
    
     !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
     !  Write simulation times and stop
  
negative.code:    CALL NWTC_Init() ! open console for writing
     ProgName = 'FAST'
     CheckpointRoot = ""
        
     CALL CheckArgs( CheckpointRoot, ErrStat, Flag=FlagArg )  ! if ErrStat /= ErrID_None, we'll ignore and deal with the problem when we try to read the input file
        
     IF ( TRIM(FlagArg) == 'RESTART' ) THEN ! Restart from checkpoint file
  