anchor.diff:     INTEGER(IntKi)                                 :: ErrStat2       ! temporary Error status of the operation
      CHARACTER(ErrMsgLen)                           :: ErrMsg2        ! temporary Error message if ErrStat /= ErrID_None
      
  +   character(*), parameter                        :: RoutineName = 'SrvD_Init'
   
   
         ! Initialize variables
  
positive.code:       ! Define initialization-routine output here:
        !............................................................................................
     CALL AllocAry( y%WriteOutput, p%NumOuts+p%NumOuts_DLL, 'WriteOutput', ErrStat2, ErrMsg2 )
        CALL CheckError( ErrStat2, ErrMsg2 )
        IF (ErrStat >= AbortErrLev) RETURN
     y%WriteOutput = 0
  
     CALL AllocAry( InitOut%WriteOutputHdr, p%NumOuts+p%NumOuts_DLL, 'WriteOutputHdr', ErrStat2, ErrMsg2 )
        CALL CheckError( ErrStat2, ErrMsg2 )
        IF (ErrStat >= AbortErrLev) RETURN
     CALL AllocAry( InitOut%WriteOutputUnt, p%NumOuts+p%NumOuts_DLL, 'WriteOutputUnt', ErrStat2, ErrMsg2 )
        CALL CheckError( ErrStat2, ErrMsg2 )
        IF (ErrStat >= AbortErrLev) RETURN
     
     do i=1,p%NumOuts
        InitOut%WriteOutputHdr(i) = p%OutParam(i)%Name
  
negative.code:       !............................................................................................
  
     CALL AllocAry( u%BlPitch, p%NumBl, 'BlPitch', ErrStat2, ErrMsg2 )
        if (Failed())  return;
  
     CALL AllocAry( u%ExternalBlPitchCom, p%NumBl, 'ExternalBlPitchCom', ErrStat2, ErrMsg2 )
        if (Failed())  return;
          
     IF (InitInp%NumSC2Ctrl > 0 .and. p%UseBladedInterface) THEN
        CALL AllocAry( u%SuperController, InitInp%NumSC2Ctrl, 'u%SuperController', ErrStat2, ErrMsg2 )
        if (Failed())  return;
        u%SuperController = 0.0_SiKi
     END IF
                    
  