init_itv_13 Subroutine

public subroutine init_itv_13()

Uses

  • (13) tfcth (NOT RECOMMENDED)

    Arguments

    None

    Contents

    Source Code


    Source Code

      subroutine init_itv_13
        !! <LI> (13) tfcth (NOT RECOMMENDED)
        use numerics, only: lablxc, boundl, boundu
        implicit none
        lablxc(13) = 'tfcth         '
        boundl(13) = 0.100D0
        boundu(13) = 5.000D0
      end subroutine init_itv_13