2 SUBROUTINE SUCST_IFSAUX
3 ! ------------------------------------------------------------------
5 ! -----------------------------------------------------------------
7 ! -----------------------------------------------------------------
8 END SUBROUTINE SUCST_IFSAUX
INTERFACE SUBROUTINE SUCST_IFSAUX USE ONLY
INTERFACE SUBROUTINE SUCST_IFSAUX USE PARKIND1