anchor.diff:  
      PRIVATE
   
  -   TYPE(ProgDesc), PARAMETER  :: SubDyn_ProgDesc = ProgDesc( 'SubDyn', 'v0.02.00', '19-Jul-2013' )
  +   TYPE(ProgDesc), PARAMETER  :: SubDyn_ProgDesc = ProgDesc( 'SubDyn', 'v0.03.00', '06-Aug-2013' )
   
      ! ..... Public Subroutines ...................................................................................................
   
  
positive.code:    END IF   
     p%D2_42 = 0         
     
        ! Allocate Abar_21
     ALLOCATE( p%Abar_21(DOFL, DOFM), STAT = ErrStat )
     IF ( ErrStat/= ErrID_None ) THEN
        ErrStat = ErrID_Fatal
        ErrMsg  = 'Error allocating parameter matrix p%Abar_21 in SubDyn_Init/Set parameters'
        RETURN
     END IF   
     p%Abar_21 = 0            
     
        ! Allocate Abar_22
     ALLOCATE( p%Abar_22(DOFL, DOFM), STAT = ErrStat )
     IF ( ErrStat/= ErrID_None ) THEN
        ErrStat = ErrID_Fatal
        ErrMsg  = 'Error allocating parameter matrix p%Abar_22 in SubDyn_Init/Set parameters'
        RETURN
     END IF   
     p%Abar_22 = 0               
     
        ! Allocate Bbar_13
     ALLOCATE( p%Bbar_13(DOFI, p%TPdofL), STAT = ErrStat )
     IF ( ErrStat/= ErrID_None ) THEN
        ErrStat = ErrID_Fatal
        ErrMsg  = 'Error allocating parameter matrix p%Bbar_13 in SubDyn_Init/Set parameters'
        RETURN
     END IF   
     p%Bbar_13 = 0               
     
        ! Allocate Bbar_23
     ALLOCATE( p%Bbar_23(DOFL, p%TPdofL), STAT = ErrStat )
     IF ( ErrStat/= ErrID_None ) THEN
        ErrStat = ErrID_Fatal
        ErrMsg  = 'Error allocating parameter matrix p%Bbar_23 in SubDyn_Init/Set parameters'
        RETURN
     END IF   
     p%Bbar_23 = 0               
  
        ! Allocate Bbar_24
     ALLOCATE( p%Bbar_24(DOFL, DOFL), STAT = ErrStat )
     IF ( ErrStat/= ErrID_None ) THEN
        ErrStat = ErrID_Fatal
        ErrMsg  = 'Error allocating parameter matrix p%Bbar_24 in SubDyn_Init/Set parameters'
        RETURN
     END IF   
     p%Bbar_24 = 0
     
        ! Allocate Fbar_21
     ALLOCATE( p%Fbar_21(DOFL), STAT = ErrStat )
  
negative.code:    REAL(ReKi)  ::  MBB2(DOFR, DOFR)
     REAL(ReKi)  ::  MBM2(DOFR, DOFM)   
     REAL(ReKi)                            :: KLL_inv(DOFL, DOFL)
     REAL(ReKi)                            :: Mu(DOFL, DOFL),Mu2(DOFL, DOFL)  !matrices for normalization, Mu2 is diagonal
     
     REAL(DbKi)           :: PhiM2(DOFL, DOFM)  
     
     Character(1024) :: rootname
     INTEGER                               :: I
     
  