anchor.diff:     if (InitInp%Linearize) then
         CALL SetErrStat( ErrID_Fatal, 'ExtPtfm_MCKF linearization analysis TODO.', ErrStat, ErrMsg, 'ExtPtfm_Init')
         !Appropriate Jacobian row/column names and rotating-frame flags here:   
  -      CALL AllocAry(InitOut%LinNames_y, 6      , 'LinNames_y', ErrStat, ErrMsg); if(Failed()) return
  -      CALL AllocAry(InitOut%RotFrame_y, 6      , 'RotFrame_y', ErrStat, ErrMsg); if(Failed()) return
  -      CALL AllocAry(InitOut%LinNames_x, 2*p%nCB, 'LinNames_x', ErrStat, ErrMsg); if(Failed()) return
  -      CALL AllocAry(InitOut%RotFrame_x, 2*p%nCB, 'RotFrame_x', ErrStat, ErrMsg); if(Failed()) return
  -      CALL AllocAry(InitOut%LinNames_u, 18     , 'LinNames_u', ErrStat, ErrMsg); if(Failed()) return
  -      CALL AllocAry(InitOut%RotFrame_u, 18     , 'RotFrame_u', ErrStat, ErrMsg); if(Failed()) return
  -      CALL AllocAry(InitOut%IsLoad_u  , 18     , 'IsLoad_u'  , ErrStat, ErrMsg); if(Failed()) return
  +      CALL AllocAry(InitOut%LinNames_y, 6       , 'LinNames_y', ErrStat, ErrMsg); if(Failed()) return
  +      CALL AllocAry(InitOut%RotFrame_y, 6       , 'RotFrame_y', ErrStat, ErrMsg); if(Failed()) return
  +      CALL AllocAry(InitOut%LinNames_x, 2*p%nCB , 'LinNames_x', ErrStat, ErrMsg); if(Failed()) return
  +      CALL AllocAry(InitOut%RotFrame_x, 2*p%nCB , 'RotFrame_x', ErrStat, ErrMsg); if(Failed()) return
  +      CALL AllocAry(InitOut%LinNames_u, N_INPUTS, 'LinNames_u', ErrStat, ErrMsg); if(Failed()) return
  +      CALL AllocAry(InitOut%RotFrame_u, N_INPUTS, 'RotFrame_u', ErrStat, ErrMsg); if(Failed()) return
  +      CALL AllocAry(InitOut%IsLoad_u  , N_INPUTS, 'IsLoad_u'  , ErrStat, ErrMsg); if(Failed()) return
         !do I=1,6;     InitOut%LinNames_y(I) = 'ExtPtm_Y'//trim(Num2LStr(I)); enddo
  -      !do I=1,18;    InitOut%LinNames_u(I) = 'ExtPtm_U'//trim(Num2LStr(I)); enddo
  +      !do I=1,N_INPUTS;    InitOut%LinNames_u(I) = 'ExtPtm_U'//trim(Num2LStr(I)); enddo
         !do I=1,p%nCB; 
         !    InitOut%LinNames_x(I)       = 'ExtPtm_X'//trim(Num2LStr(I));
         !    InitOut%LinNames_x(I+p%nCB) = 'ExtPtm_XP'//trim(Num2LStr(I));
  
positive.code:    REAL(ReKi), ALLOCATABLE, OPTIONAL,    INTENT(INOUT)           :: dx_op(:)   !< values of first time derivatives of linearized continuous states
     REAL(ReKi), ALLOCATABLE, OPTIONAL,    INTENT(INOUT)           :: xd_op(:)   !< values of linearized discrete states
     REAL(ReKi), ALLOCATABLE, OPTIONAL,    INTENT(INOUT)           :: z_op(:)    !< values of linearized constraint states
     ! Initialize ErrStat
     ErrStat = ErrID_None
     ErrMsg  = ''
  
     IF ( PRESENT( u_op ) ) THEN
     END IF
  
     IF ( PRESENT( y_op ) ) THEN
     END IF
  
     IF ( PRESENT( x_op ) ) THEN
     END IF
  
     IF ( PRESENT( dx_op ) ) THEN
     END IF
  
     IF ( PRESENT( xd_op ) ) THEN
     END IF
     
     IF ( PRESENT( z_op ) ) THEN
     END IF
  
  END SUBROUTINE ExtPtfm_GetOP
  !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  
  
negative.code:    call AllocAry( y%WriteOutput,        p%NumOuts,'WriteOutput',   ErrStat,ErrMsg); if(Failed()) return
     call AllocAry(InitOut%WriteOutputHdr,p%NumOuts,'WriteOutputHdr',ErrStat,ErrMsg); if(Failed()) return
     call AllocAry(InitOut%WriteOutputUnt,p%NumOuts,'WriteOutputUnt',ErrStat,ErrMsg); if(Failed()) return
     y%WriteOutput(1:p%NumOuts) = 0.0
     InitOut%WriteOutputHdr(1:p%NumOuts) = p%OutParam(1:p%NumOuts)%Name
     InitOut%WriteOutputUnt(1:p%NumOuts) = p%OutParam(1:p%NumOuts)%Units     
     InitOut%Ver = ExtPtfm_Ver
  