!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 RSEARCH__genmod INTERFACE SUBROUTINE RSEARCH(IM,KM1,IXZ1,KXZ1,Z1,KM2,IXZ2,KXZ2,Z2,IXL2& &,KXL2,L2) INTEGER(KIND=4), INTENT(IN) :: KXL2 INTEGER(KIND=4), INTENT(IN) :: IXL2 INTEGER(KIND=4), INTENT(IN) :: KXZ2 INTEGER(KIND=4), INTENT(IN) :: IXZ2 INTEGER(KIND=4), INTENT(IN) :: KM2 INTEGER(KIND=4), INTENT(IN) :: KXZ1 INTEGER(KIND=4), INTENT(IN) :: IXZ1 INTEGER(KIND=4), INTENT(IN) :: KM1 INTEGER(KIND=4), INTENT(IN) :: IM REAL(KIND=4), INTENT(IN) :: Z1(1+(IM-1)*IXZ1+(KM1-1)*KXZ1) REAL(KIND=4), INTENT(IN) :: Z2(1+(IM-1)*IXZ2+(KM2-1)*KXZ2) INTEGER(KIND=4), INTENT(OUT) :: L2(1+(IM-1)*IXL2+(KM2-1)* & &KXL2) END SUBROUTINE RSEARCH END INTERFACE END MODULE RSEARCH__genmod