SUBROUTINE PLINE2(NSKIP,A1,I1,A2,I2,A3)
      CHARACTER*(*)A1,A2,A3
      IF(NSKIP.EQ.0)GO TO 30
      DO 10 I=1,NSKIP
   10 WRITE(6,20)
   20 FORMAT(/)
   30 WRITE(6,40)A1,I1,A2,I2,A3
   40 FORMAT(1X,A,I4,1X,A,I4,1X,A)
      END
C
      SUBROUTINE PLINE1(NSKIP,A1,I1,A2)
      CHARACTER*(*)A1,A2
      IF(NSKIP.EQ.0)GO TO 30
      DO 10 I=1,NSKIP
   10 WRITE(6,20)
   20 FORMAT(/)
   30 WRITE(6,40)A1,I1,A2
   40 FORMAT(1X,A,I4,1X,A)
      END
C
      SUBROUTINE PLINE(NSKIP,A1)
      CHARACTER*(*)A1
      IF(NSKIP.EQ.0)GO TO 30
      DO 10 I=1,NSKIP
   10 WRITE(6,20)
   20 FORMAT(/)
   30 WRITE(6,40)A1
   40 FORMAT(1X,A)
      END
C
      SUBROUTINE PINTI(A1,K1,K2,K3)
      CHARACTER*(*)A1
      IF((K1.GE.K2).AND.(K1.LE.K3))RETURN
      WRITE(6,10)A1,K1,K2,K3
   10 FORMAT(/,' *** ',A,I4,' NOT IN RANGE',I4,' to ',I5)
      CALL TERM
      END
C
      SUBROUTINE PINTR(A1,R1,R2,R3)
      REAL*8 R1,R2,R3
      CHARACTER*(*)A1
      IF((R1.GT.R2).AND.(R1.LT.R3))RETURN
      WRITE(6,10)A1,R1,R2,R3
   10 FORMAT(/,' *** ',A,1PE12.5,
     1      1X,'NOT IN RANGE',1PE12.5,' to ',1PE12.5)
      CALL TERM
      END
C     
      SUBROUTINE PSIMP(A1,N,P)
      REAL*8 P(N)
      CHARACTER*(*)A1
      AA=0.0D0
      DO 10 I=1,N
      IF((P(I).LT.0.0D0).OR.(P(I).GT.1.0D0))GO TO 20
   10 AA=AA+P(I)
      IF((AA.GT..99999D0).AND.(AA.LT.1.00001D0))RETURN
   20 WRITE(6,30)A1,(P(I),I=1,N)
   30 FORMAT(/,' ***',A,' NOT IN UNIT SIMPLEX:',/,(5(1PE15.3)))
      CALL TERM
      END
C
      SUBROUTINE PEND(A1)
      CHARACTER*(*)A1
      WRITE(6,10)A1
   10 FORMAT(/,' *** ',A)
      CALL TERM
      END
C
      SUBROUTINE TERM
C  This routine prints a terminal message and halts execution.
      WRITE(6,10)
   10 FORMAT('    PROGRAM STOPS.')
      STOP
      END