SUBROUTINE OUT(A,N,NAME)
      DIMENSION A(N)
      CHARACTER*(*) NAME
      L=0
      WRITE(6,5)NAME
    5 FORMAT(1X,A)
      DO 20 K=1,N,5
      L1=L+1
      LAST=L+5
      IF(LAST.GT.N)LAST=N
      WRITE(6,10)L1,(A(I),I=L1,LAST)
   10 FORMAT(I4,1X,5(1PE15.8))
   20 L=L+5
      RETURN
      END
      SUBROUTINE DOUT(A,N,NAME)
      REAL*8 A(N)
      CHARACTER*(*) NAME
      L=0
      WRITE(6,5)NAME
    5 FORMAT(1X,A)
      DO 20 K=1,N,5
      L1=L+1
      LAST=L+5
      IF(LAST.GT.N)LAST=N
      WRITE(6,10)L1,(A(I),I=L1,LAST)
   10 FORMAT(I4,1X,5(1PE15.8))
   20 L=L+5
      RETURN
      END
      SUBROUTINE IOUT(M,N,NAME)
      DIMENSION M(N)
      CHARACTER*(*) NAME
      L=0
      WRITE(6,5)NAME
    5 FORMAT(1X,A)
      DO 20 K=1,N,15
      L1=L+1
      LAST=L+15
      IF(LAST.GT.N)LAST=N
      WRITE(6,10)L1,(M(I),I=L1,LAST)
   10 FORMAT(16I5)
   20 L=L+15
      RETURN
      END
      SUBROUTINE DOUT2(A,N1,N2,NAME)
      REAL*8 A(N1,N2)
      CHARACTER*(*) NAME
      WRITE(6,5)NAME
    5 FORMAT(1X,A)
      DO 40 J=1,N1
      WRITE(6,10)J
   10 FORMAT(' Row',I3)
      L=0
      DO 30 K=1,N2,5
      L1=L+1
      LAST=L+5
      IF(LAST.GT.N2)LAST=N2
      WRITE(6,20)L1,(A(J,I),I=L1,LAST)
   20 FORMAT(I4,1X,5(1PE15.8))
   30 L=L+5
   40 CONTINUE
      RETURN
      END
      SUBROUTINE COUT(A,N,NAME)
      COMPLEX*16 A(N)
      CHARACTER*(*) NAME
      L=0
      WRITE(6,5)NAME
    5 FORMAT(1X,A)
      DO 20 K=1,N,2
      L1=L+1
      LAST=L+2
      IF(LAST.GT.N)LAST=N
      WRITE(6,10)L1,(A(I),I=L1,LAST)
   10 FORMAT(I4,1X,2(1PE15.8),4X,2(1PE15.8))
   20 L=L+2
      RETURN
      END
      SUBROUTINE I2OUT(M,N,NAME)
      IMPLICIT INTEGER*2 (I-N)
      DIMENSION M(N)
      CHARACTER*(*) NAME
      L=0
      WRITE(6,5)NAME
    5 FORMAT(1X,A)
      DO 20 K=1,N,15
      L1=L+1
      LAST=L+15
      IF(LAST.GT.N)LAST=N
      WRITE(6,10)L1,(M(I),I=L1,LAST)
   10 FORMAT(16I5)
   20 L=L+5
      RETURN
      END
      SUBROUTINE DOUT22(A,NR1,NR2,NC1,NC2,IDA,NAME)
      IMPLICIT REAL*8 (A-H,O-Z)
      CHARACTER*(*) NAME
      DIMENSION A(IDA,NC2)
      WRITE(6,10)NAME,NC1,NC2
   10 FORMAT(/,' Matrix ',A,' Columns',I3,' -',I3)
      DO 20 IR=NR1,NR2
      DO 20 IFC=NC1,NC2,5
      ILC=IFC+4
      IF(ILC.GT.NC2)ILC=NC2
      IF(IFC.EQ.NC1)WRITE(6,30)IR,(A(IR,J),J=IFC,ILC)
   20 IF(IFC.GT.NC1)WRITE(6,40)(A(IR,J),J=IFC,ILC)
   30 FORMAT(I4,1X,5(1PE15.7))
   40 FORMAT(5X,5(1PE15.7))
      RETURN
      END
      SUBROUTINE LOUT(LA,N,NAME)
      LOGICAL LA(N)
      CHARACTER*(*) NAME
      CHARACTER*7 LSTAT(10)
      L=0
      WRITE(6,10)NAME
   10 FORMAT(1X,A)
      DO 30 I=1,N,10
      LAST=I+9
      IF(LAST.GT.N)LAST=N
      K=0
      DO 20 J=I,LAST
      K=K+1
      LSTAT(K)='FALSE  '
   20 IF(LA(J))LSTAT(K)='TRUE   '
   30 WRITE(6,40)I,(LSTAT(J),J=1,K)
   40 FORMAT(I5,2X,10A7)
      RETURN
      END