C     /==========================================================\
C     | SUBROUTINE SMOOTH_INIT_VARIA                             |
C     \==========================================================/

cadj SUBROUTINE smooth_init_varia INPUT   = 1
cadj SUBROUTINE smooth_init_varia OUTPUT  =
cadj SUBROUTINE smooth_init_varia ACTIVE  =
cadj SUBROUTINE smooth_init_varia DEPEND  = 1
cadj SUBROUTINE smooth_init_varia REQUIRED
cadj SUBROUTINE smooth_init_varia INFLUENCED
cadj SUBROUTINE smooth_init_varia ADNAME  =
CADJ & adsmooth_init_varia
cadj SUBROUTINE smooth_init_varia FTLNAME  =
CADJ & g_smooth_init_varia