      MODULE matain_I
      INTERFACE
!...Generated by Pacific-Sierra Research 77to90  4.3E  12:22:13   1/ 2/07
      SUBROUTINE matain (ORG, LOCK, CLOSED, VARMAX, SKAL, NMAX, ANEL, PAR, LOW&
         , MINJ, MAXJ, LIM, DUBBEL)
      INTEGER, DIMENSION(15,0:10), INTENT(INOUT) :: ORG
      LOGICAL, DIMENSION(15,0:10), INTENT(INOUT) :: LOCK
      LOGICAL, DIMENSION(15,0:10), INTENT(INOUT) :: CLOSED
      INTEGER, INTENT(IN) :: VARMAX
      INTEGER, INTENT(OUT) :: SKAL
      INTEGER, INTENT(OUT) :: NMAX
      INTEGER, INTENT(OUT) :: ANEL
      INTEGER, INTENT(OUT) :: PAR
      INTEGER, DIMENSION(15,0:10), INTENT(INOUT) :: LOW
      INTEGER, INTENT(IN) :: MINJ
      INTEGER, INTENT(IN) :: MAXJ
      INTEGER, DIMENSION(15), INTENT(INOUT) :: LIM
      LOGICAL, DIMENSION(15,0:10), INTENT(OUT) :: DUBBEL
!...This routine performs I/O.
      END SUBROUTINE
      END INTERFACE
      END MODULE
