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