!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%
      IF(MODP.EQ.0)THEN
         PN = PX
      ELSE IF(MODP.EQ.1)THEN
         PN = PX * LNPS
      ELSE IF(MODP.EQ.2)THEN
         PN = EXP(PX + LNPS)
      ELSE IF(MODP.EQ.3)THEN
         PN = LNPS
      ELSE IF(MODP.EQ.4)THEN
         PN = EXP(PX + LNPS) * 100.
      ELSE IF(MODP.EQ.5)THEN
         PN = EXP(PX) * 100.
      ELSE
         PRINT *,'***** MAUVAISE SPECIFICATION DE MODP ****'
         CALL QQEXIT(1)
      END IF