anchor.diff:     CHARACTER(ErrMsgLen)                    :: ErrMsg2
      CHARACTER(*), PARAMETER                 :: RoutineName = 'ReadModeShapeFile'
      
  +   CHARACTER(1024)                         :: PriPath            ! Path name of the primary file
      INTEGER(IntKi)                          :: i
      INTEGER(IntKi)                          :: UnIn
      INTEGER(IntKi)                          :: UnEc
  
positive.code:          CALL Cleanup()
           RETURN
        END IF
     
     !----------- VISUALIZATION OPTIONS ------------------------------------------
     
  
negative.code:          return
        end if
     end if
     
        
     CALL ReadVar( UnIn, InputFile, p_FAST%VTK_modes%MatlabFileName, 'MatlabFileName', 'Name of the file with eigenvectors written by Matlab', ErrStat2, ErrMsg2, UnEc )
        CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
  