anchor.diff:     REAL(ReKi),                   INTENT(  OUT):: Acc(:)
   
      ! Local variables
  -   
  -   REAL(ReKi):: MassM(dof_total,dof_total) 
  -   REAL(ReKi):: RHS(dof_total)  
  -   REAL(ReKi):: F_PointLoad(dof_total) 
  -   REAL(ReKi):: sol_temp(dof_total) 
  -   REAL(ReKi):: d 
  -   INTEGER(IntKi):: indx(dof_total) 
  -   INTEGER(IntKi):: j 
  -   INTEGER(IntKi):: k 
  +
  +   REAL(ReKi):: MassM(dof_total,dof_total)
  +   REAL(ReKi):: RHS(dof_total)
  +   REAL(ReKi):: F_PointLoad(dof_total)
  +   REAL(ReKi):: sol_temp(dof_total)
  +   REAL(ReKi):: d
  +   INTEGER(IntKi):: indx(dof_total)
  +   INTEGER(IntKi):: j
  +   INTEGER(IntKi):: k
      INTEGER(IntKi):: temp_id
      REAL(ReKi):: temp6(6)
   
  
positive.code:    CALL ReadVar(UnIn,BldFile,BladeInputFileData%station_total,'station_total','Number of blade input stations',ErrStat2,ErrMsg2,UnEc)
  
     CALL AllocAry(BladeInputFileData%stiff0,6,6,BladeInputFileData%station_total,'Cross-sectional 6 by 6 stiffness matrix',ErrStat2,ErrMsg2)
     BladeInputFileData%stiff0(:,:,:) = 0.0D0 
     CALL AllocAry(BladeInputFileData%mass0,6,6,BladeInputFileData%station_total,'Cross-sectional 6 by 6 mass matrix',ErrStat2,ErrMsg2)
     BladeInputFileData%mass0(:,:,:) = 0.0D0 
     CALL AllocAry(BladeInputFileData%station_eta,BladeInputFileData%station_total,'Station eta array',ErrStat2,ErrMsg2)
     BladeInputFileData%station_eta(:) = 0.0D0 
  
     CALL ReadVar(UnIn,BldFile,BladeInputFileData%damp_flag,'damp_flag','Damping flag',ErrStat2,ErrMsg2,UnEc)
     !  -------------- DAMPING PARAMETER-----------------------------------------------
  
negative.code:    DO i=1,InputFileData%member_total
         READ(UnIn,*) j,InputFileData%kp_member(j)
         IF(InputFileData%kp_member(j) .LT. 3) THEN
  !           CALL SetErrors(ErrID_Fatal,TRIM(Num2LStr(j))//'th member has less than 3 key points.')
             STOP
         ENDIF
         temp_int = temp_int + InputFileData%kp_member(j)
  