EQ_rxnmodified_works.for

      SUBROUTINE FPTABX
C  THIS ROUTINE IS GENERATED BY WRFPTB
#include "dms_global.cmn"
C     END COMMON /GLOBAL/ 21-JUL-1992
      EXTERNAL USRPCK  
      EXTERNAL MUL2U2  
      EXTERNAL SIG2U2  
      EXTERNAL VL2U2   
      EXTERNAL DL0U    
      DIMENSION NAMES(    10)
      DATA NAMES /
     1  4HUSRP, 4HCK  , 4HMUL2, 4HU2  , 4HSIG2, 4HU2  , 4HVL2U, 4H2   , 
     1  4HDL0U,4H    /
      CALL DMS_FPSAVE ( NAMES(     1), USRPCK  , GLOBAL_LSDIAG )
      CALL DMS_FPSAVE ( NAMES(     4), MUL2U2  , GLOBAL_LSDIAG )
      CALL DMS_FPSAVE ( NAMES(     7), SIG2U2  , GLOBAL_LSDIAG )
      CALL DMS_FPSAVE ( NAMES(    10), VL2U2   , GLOBAL_LSDIAG )
      CALL DMS_FPSAVE ( NAMES(    13), DL0U    , GLOBAL_LSDIAG )
      RETURN
      END