PARAMETER (NPI = 9)
      INTRINSIC SQRT, SIN, COS
      EXTERNAL MYSQRT, MYSUB
      REAL MYSQRT
      END