#ifdef CPP_GPUM MODULE s2s USE s2s_mod END MODULE s2s #else ! s2s wrapper MODULE s2s PRIVATE PUBLIC s2s_initialize, s2s_is_initialized CONTAINS SUBROUTINE s2s_initialize() END SUBROUTINE s2s_initialize FUNCTION s2s_is_initialized() IMPLICIT NONE LOGICAL :: s2s_is_initialized s2s_is_initialized=.FALSE. END FUNCTION s2s_is_initialized END MODULE s2s #endif