anchor.diff:     
      ! Compute initial position vector uuN0 in blade frame
      temp_int = p%node_elem * p%dof_node
  -   CALL AllocAry(p%uuN0,temp_int,p%elem_total,'uuN0 (initial position) array',ErrStat2,ErrMsg2)
  -      CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
      ! Temporary GLL point intrinsic coordinates array
      CALL AllocAry(GLL,p%node_elem,'GLL points array',ErrStat2,ErrMsg2)
         CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
  
positive.code:    end if   
  ! END Actuator
     
  
     ! set data for File I/O data:
     !...............................................
     p%numOuts   = InputFileData%NumOuts  
     p%NNodeOuts = InputFileData%NNodeOuts      
     p%OutNd     = InputFileData%OutNd
  
     call SetOutParam(InputFileData%OutList, p, ErrStat2, ErrMsg2 ) ! requires: p%NumOuts, p%NumBlNds, sets: p%OutParam.
        call setErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,RoutineName)
        if (ErrStat >= AbortErrLev) return  
        
     call SetInitOut(p, InitOut, errStat, errMsg)
        call SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
  
negative.code: 
     real(BDKi),                   intent(in   )  :: temp_L2(:,:)      ! 
     type(BD_InitInputType),       intent(in   )  :: InitInp           ! Input data for initialization routine
     type(BD_ParameterType),       intent(in   )  :: p                 ! Parameters
     type(BD_InputType),           intent(inout)  :: u                 ! Inputs
     integer(IntKi),               intent(  out)  :: ErrStat           ! Error status of the operation
     character(*),                 intent(  out)  :: ErrMsg            ! Error message if ErrStat /= ErrID_None
  