s2s.F90 Source File

#ifdef CPP_GPUM
  MODULE s2s
    USE s2s_mod 
  END MODULE s2s
#else

! s2s wrapper
  MODULE s2s
  
    PRIVATE
    PUBLIC s2s_initialize, s2s_finalize, s2s_gpu_activated, s2s_register_activated

  CONTAINS

    SUBROUTINE s2s_initialize()
    END SUBROUTINE s2s_initialize
    
    SUBROUTINE s2s_finalize()
    END SUBROUTINE s2s_finalize

    FUNCTION s2s_gpu_activated()
      IMPLICIT NONE
      LOGICAL :: s2s_gpu_activated
      s2s_gpu_activated=.FALSE.
    END FUNCTION s2s_gpu_activated

    FUNCTION s2s_register_activated()
      IMPLICIT NONE
      LOGICAL :: s2s_register_activated
      s2s_register_activated=.FALSE.
    END FUNCTION s2s_register_activated

  END MODULE s2s

#endif