atsfactorymodule Module Reference

Functions/Subroutines
class(atstype) function, pointer, public	create_ats ()
	Factory method to create ATS object, to hide. More...

Function/Subroutine Documentation

create_ats()

class(atstype) function, pointer, public atsfactorymodule::create_ats

Definition at line 16 of file AtsFactory.F90.

    use simvariablesmodule, only: simulation_mode
    class(AtsType), pointer :: ats
    ! local
#if defined(__WITH_MPI__)
    class(ParallelAtsType), pointer :: par_ats
#endif
 
    if (simulation_mode == 'SEQUENTIAL') then
      allocate (ats)
#if defined(__WITH_MPI__)
    else if (simulation_mode == 'PARALLEL') then
      allocate (par_ats)
      ats => par_ats
#endif
    else
      call ustop('Unsupported simulation mode for creating ATS: '&
                 &//trim(simulation_mode))
    end if
 

Here is the call graph for this function:

Here is the caller graph for this function: