!COMPILER-GENERATED INTERFACE MODULE: Wed Jun 21 09:16:14 2017
        MODULE RDRECORDI__genmod
          INTERFACE 
            SUBROUTINE RDRECORDI(LUN,RECORD,N,IOS)
              INTEGER(KIND=4), INTENT(IN) :: LUN
              CHARACTER(*), INTENT(OUT) :: RECORD
              INTEGER(KIND=4), INTENT(OUT) :: N
              INTEGER(KIND=4), INTENT(OUT) :: IOS
            END SUBROUTINE RDRECORDI
          END INTERFACE 
        END MODULE RDRECORDI__genmod