anchor.diff:     ENDIF
   
   
  +      ! Setup mesh for input motions for Morison and WAMIT
  +   CALL MeshCreate( BlankMesh       = PMesh             &
  +                 ,IOS               = COMPONENT_INPUT   &
  +                 ,Nnodes            = 1                 &
  +                 ,ErrStat           = ErrStat           &
  +                 ,ErrMess           = ErrMsg            &
  +                 ,TranslationDisp   = .TRUE.            &
  +                 ,Orientation       = .TRUE.            &
  +                 ,TranslationVel    = .TRUE.            &
  +                 ,RotationVel       = .TRUE.            &
  +                 ,TranslationAcc    = .TRUE.            &
  +                 ,RotationAcc       = .TRUE.)
  +   IF ( ErrStat >= ErrID_Fatal ) THEN
  +      CALL WrScr( ErrMsg )
  +      STOP
  +   END IF
  +
  +   CALL MeshPositionNode (PMesh                                 &
  +                           , 1                                  &
  +                           , (/0.0_ReKi, 0.0_ReKi, 0.0_ReKi/)   &
  +                           , ErrStat                            &
  +                           , ErrMsg                             )
  +   IF ( ErrStat >= ErrID_Fatal ) THEN
  +      CALL WrScr( ErrMsg )
  +      STOP
  +   END IF
  +
  +   CALL MeshConstructElement( PMesh, ELEMENT_POINT, ErrStat, ErrMsg, 1 )
  +   IF ( ErrStat >= ErrID_Fatal ) THEN
  +      CALL WrScr( ErrMsg )
  +      STOP
  +   END IF
  +
  +   CALL MeshCommit ( PMesh, ErrStat, ErrMsg )
  +   IF ( ErrStat >= ErrID_Fatal ) THEN
  +      CALL WrScr( ErrMsg )
  +      STOP
  +   END IF
  +
  +
   
            ! Initialize the module
      Interval = drvrInitInp%TimeInterval
  
positive.code:          
        END IF
     END IF
     
        
     !...............................................................................................................................
     ! Routines called in loose coupling -- the glue code may implement this in various ways
  
negative.code:       END IF
        
            
        IF ( drvrInitInp%MorisonInputsMod == 2 ) THEN
              ! Set the Morison Inputs from a time series input file
           PMesh%TranslationDisp(:,1)   = MorisonIn(n,2:4) 
  
              ! Compute direction cosine matrix from the rotation angles
           IF ( abs(MorisonIn(n,5)) > maxAngle ) maxAngle = abs(MorisonIn(n,5))
           IF ( abs(MorisonIn(n,6)) > maxAngle ) maxAngle = abs(MorisonIn(n,6))
           IF ( abs(MorisonIn(n,7)) > maxAngle ) maxAngle = abs(MorisonIn(n,7))
  
           CALL SmllRotTrans( 'InputRotation', REAL(MorisonIn(n,5),ReKi), REAL(MorisonIn(n,6),ReKi), REAL(MorisonIn(n,7),ReKi), dcm, 'Junk', ErrStat, ErrMsg )
           PMesh%Orientation(:,:,1)     = dcm
  
           PMesh%TranslationVel(:,1)    = MorisonIn(n,8:10)
           PMesh%RotationVel(:,1)       = MorisonIn(n,11:13)
           PMesh%TranslationAcc(:,1)    = MorisonIn(n,14:16)
           PMesh%RotationAcc(:,1)       = MorisonIn(n,17:19)
  
           IF ( u(1)%Morison%DistribMesh%Initialized ) THEN
              CALL Transfer_Point_to_Line2( PMesh, u(1)%Morison%DistribMesh, Map_P_to_MorisonDist, ErrStat, ErrMsg )
              if (errStat >= AbortErrLev) call HD_DvrCleanup()
           END IF
           IF ( u(1)%Morison%LumpedMesh%Initialized ) THEN
              CALL Transfer_Point_to_Point(  PMesh, u(1)%Morison%LumpedMesh, Map_P_to_MorisonLumped, ErrStat, ErrMsg )
              if (errStat >= AbortErrLev) call HD_DvrCleanup()
           END IF
        END IF
        
        
  