      SUBROUTINE INTPR(MESAGE,LMESS,VALUE,N)
C
C  Print a message and integer values.
C
      INTEGER LMESS, NMESS
      INTEGER VALUE(*)
      CHARACTER(LEN=*) MESAGE
      INTEGER N
      INTRINSIC MIN, LEN
C
      NMESS = LEN(MESAGE)
      IF (LMESS .GE. 0) NMESS = MIN(LMESS, NMESS)
      IF (N .LT. 0) VALUE(1) = VALUE(1)
C     IF (NMESS .GT. 0) WRITE(*,'(A)') MESAGE(1:NMESS)
C     IF (N .GT. 0) WRITE(*,*) (VALUE(I), I=1,N)
      RETURN
      END
