!COMPILER-GENERATED INTERFACE MODULE: Mon Jan 30 12:46:50 2023
        ! This source file is for reference only and may not completely
        ! represent the generated interface used by the compiler.
        MODULE DIA__genmod
          INTERFACE 
            SUBROUTINE DIA(X1,X2,X3,X5,X6,X7)
              REAL(KIND=4) :: X1
              REAL(KIND=4) :: X2
              REAL(KIND=4) :: X3
              REAL(KIND=4) :: X5
              REAL(KIND=4) :: X6
              REAL(KIND=4) :: X7
            END SUBROUTINE DIA
          END INTERFACE 
        END MODULE DIA__genmod