!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%
      REAL ACTP, FACM
      REAL A(15), AC(15), ACTOP, AD(15), AU(15), PH(15)
      PARAMETER (ACTP=1.7,   FACM=1.0)
      COMMON /RASDATA/ A, AC, ACTOP, AD, AU, PH