slaPrenut -   
 SYNOPSYS 
 void  slaPrenut(epoch, date, rmatpn)
 PARAMETERS 
-   double  epoch 
 
-  
 
-   double  date 
 
-  
 
-   double ( *rmatpn 
 
-  
 
 DESCRIPTION 
  Form the matrix of precession and nutation (IAU 1976 / FK5)
  (double precision)
 Given
     epoch   double         Julian epoch for mean coordinates
     date    double         Modified Julian Date (JD-2400000.5)
                            for true coordinates
 Returned
     rmatpn  double[3][3]   combined precession/nutation matrix
 Called 
 slaPrec, slaEpj, slaNut, slaDmxm
 Notes
  1)  The epoch and date are TDB (loosely ET).
  2)  The matrix is in the sense   v(true)  =  rmatpn * v(mean) .
  P.T.Wallace   Starlink   15 July 1993
 SEE ALSO