!COMPILER-GENERATED INTERFACE MODULE: Mon Jan 30 12:46:38 2023
        ! This source file is for reference only and may not completely
        ! represent the generated interface used by the compiler.
        MODULE TD_FORCEUPB__genmod
          INTERFACE 
            SUBROUTINE TD_FORCEUPB(I,TD_SEMIMUDVISC)
              INTEGER(KIND=4) :: I
              REAL(KIND=8) :: TD_SEMIMUDVISC
            END SUBROUTINE TD_FORCEUPB
          END INTERFACE 
        END MODULE TD_FORCEUPB__genmod