!COMPILER-GENERATED INTERFACE MODULE: Wed Mar 30 14:46:18 2022 ! This source file is for reference only and may not completely ! represent the generated interface used by the compiler. MODULE TERP3__genmod INTERFACE SUBROUTINE TERP3(IM,IXZ1,IXQ1,IXZ2,IXQ2,NM,NXQ1,NXQ2,KM1, & &KXZ1,KXQ1,Z1,Q1,KM2,KXZ2,KXQ2,Z2,Q2,J2) INTEGER(KIND=4) :: KXQ2 INTEGER(KIND=4) :: KXZ2 INTEGER(KIND=4) :: KM2 INTEGER(KIND=4) :: KXQ1 INTEGER(KIND=4) :: KXZ1 INTEGER(KIND=4) :: KM1 INTEGER(KIND=4) :: NXQ2 INTEGER(KIND=4) :: NXQ1 INTEGER(KIND=4) :: NM INTEGER(KIND=4) :: IXQ2 INTEGER(KIND=4) :: IXZ2 INTEGER(KIND=4) :: IXQ1 INTEGER(KIND=4) :: IXZ1 INTEGER(KIND=4) :: IM REAL(KIND=4) :: Z1(1+(IM-1)*IXZ1+(KM1-1)*KXZ1) REAL(KIND=4) :: Q1(1+(IM-1)*IXQ1+(KM1-1)*KXQ1+(NM-1)*NXQ1) REAL(KIND=4) :: Z2(1+(IM-1)*IXZ2+(KM2-1)*KXZ2) REAL(KIND=4) :: Q2(1+(IM-1)*IXQ2+(KM2-1)*KXQ2+(NM-1)*NXQ2) REAL(KIND=4) :: J2(1+(IM-1)*IXQ2+(KM2-1)*KXQ2+(NM-1)*NXQ2) END SUBROUTINE TERP3 END INTERFACE END MODULE TERP3__genmod