anchor.diff:     CALL ReadCom( UnIn, FileName, 'Environmental conditions header', ErrStat, ErrMsg, UnEchoLocal )
      
      IF ( ErrStat /= ErrID_None ) THEN
  -      ErrMsg  = ' Failed to read Comment line.'
         ErrStat = ErrID_Fatal
         CALL CleanupEchoFile( InitInp%Echo, UnEchoLocal )
         CLOSE( UnIn )
  
positive.code:       CALL ReadVar ( UnIn, FileName, InitInp%Echo, 'Echo', 'Echo the input file data', ErrStat, ErrMsg, UnEchoLocal )
        !WRITE (UnEchoLocal,Frmt      ) InitInp%Echo, 'Echo', 'Echo input file'
        IF ( ErrStat /= ErrID_None ) THEN
           ErrMsg  = ' Failed to read Echo parameter.'
           ErrStat = ErrID_Fatal
           CALL CleanupEchoFile( InitInp%Echo, UnEchoLocal )
           CLOSE( UnIn )
  
negative.code:       
           ! Open the WAMIT inputs data file
        CALL GetNewUnit( UnWAMITInp ) 
        CALL OpenFInpFile ( UnWAMITInp, drvrInitInp%WAMITInputsFile, ErrStat, ErrMsg   )  ! Open WAMIT inputs file.
        
        IF ( ErrStat /= 0 ) THEN
           CALL WrScr( ErrMsg )
           STOP
        END IF
  