        !COMPILER-GENERATED INTERFACE MODULE: Thu Oct 25 10:38:56 2018
        MODULE DECSF__genmod
          INTERFACE 
            SUBROUTINE DECSF(X,Y,ZZ,FI0,TET0,FI,TET,H)
              REAL(KIND=4) :: X
              REAL(KIND=4) :: Y
              REAL(KIND=4) :: ZZ
              REAL(KIND=4) :: FI0
              REAL(KIND=4) :: TET0
              REAL(KIND=4) :: FI
              REAL(KIND=4) :: TET
              REAL(KIND=4) :: H
            END SUBROUTINE DECSF
          END INTERFACE 
        END MODULE DECSF__genmod
