pxpriv.f

Go to the documentation of this file.

CDECK  ID>, PXPRIV.
      SUBROUTINE pxpriv (NAME,NELMT,IARR)
*.*********************************************************
*. ------
*. PXPRIV
*. ------
*. SOURCE: J.W.Gary
*. Print-out of an integer vector array
*. Usage:
*.
*.      CHARACTER*6 NAME
*.      INTEGER  NELMT
*.      PARAMETER  (NELMT=1.or.more)
*.      INTEGER IARR (NELMT)
*.      INTEGER  ISIZ
*.
*.      NAME = 'IARR  '
*.      ISIZ = 1.to.NELMT
*.      CALL PXPRIV (NAME,ISIZ,IARR)
*.
*. INPUT     : NAME    The six character name of the vector
*. INPUT     : ISIZ    The number of elements to print
*. INPUT     : IARR    The integer vector array
*.
*.*********************************************************
      IMPLICIT NONE
      INTEGER  iarr (*),iarrem (10)
      INTEGER  nelmt,nrow,ir,ic,ncol,nrem
      CHARACTER*(*)  name
      nrow =  nelmt / 10
      nrem = mod(nelmt,10)
      IF (nrem.NE.0) THEN
          DO 110 ic = 1,10
              iarrem(ic) = 0
              IF (ic.LE.nrem) iarrem(ic) = iarr(nrow*10+ic)
 110      CONTINUE
          nrow = nrow + 1
      END IF
      ncol = 10
      WRITE (6,fmt='('' Array name: '',A6)') name
      DO 120 ir = 1,nrow
          IF (ir.EQ.nrow.AND.nrem.NE.0) THEN
              ncol = nrem
              WRITE (6,fmt='(I4,'':  '',10I6)')
     +          ir,(iarrem(ic),ic=1,ncol)
          ELSE
              WRITE (6,fmt='(I4,'':  '',10I6)')
     +          ir,(iarr((ir-1)*10+ic),ic=1,ncol)
          END IF
 120  CONTINUE
      RETURN
      END