subroutine init_itv_60 !! <LI> (60) cpttf use numerics, only: lablxc, boundl, boundu implicit none lablxc(60) = 'cpttf ' boundl(60) = 0.001D0 boundu(60) = 4.000D4 end subroutine init_itv_60