anchor.diff:        ErrStat = ErrID_None
      END IF
   
  -
         ! Write the output parameters to the file
  -      
      Frmt = '(F10.4,'//TRIM(Int2LStr(p%NumOuts+p%OutAllInt*p%OutAllDims))//'(:,A,'//TRIM( p%OutFmt )//'))'
  -   
   
      WRITE(UnJckF,Frmt)  Time, ( p%Delim, SDWrOutput(I), I=1,p%NumOuts+p%OutAllInt*p%OutAllDims )
  -
  -   
  -   RETURN
  -
   
   END SUBROUTINE SDOut_WriteOutputs
   
  
positive.code: 
  !====================================================================================================
  
  
  SUBROUTINE SDOut_WriteOutputUnits( UnJckF, p, ErrStat, ErrMsg )
  
     INTEGER,                      INTENT( IN    ) :: UnJckF            ! file unit for the output file
     TYPE(SD_ParameterType),  INTENT( IN    ) :: p                    ! SubDyn module's parameter data
     INTEGER,                      INTENT(   OUT ) :: ErrStat              ! returns a non-zero value when an error occurs  
  
negative.code:        p%OutParam(p%NumOuts+1:p%NumOuts+p%OutAllDims)%Indx= MaxOutPts+(/(J, J=1, p%OutAllDims)/) 
     ENDIF
  
  END SUBROUTINE SDOut_ChkOutLst
  !====================================================================================================
  
  
  