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