!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%
*
      REAL RIMB
      COMMON / SCFRST / RIMB
#if defined(DOC)
*COMMON BLOCK /SCFRST/
*          contains variables for FORCE-RESTORE method calculation
*          All are initialized in STFRST routine
*
* RIMB     is a conversion factor, initialized to 100.0/RGASD
*
#endif