pkg/ptracers/ptracers_dyn_state_data_mod.F

d217ad1db8 Oliv*0001 #include "PTRACERS_OPTIONS.h"
                0002 #ifdef PTRACERS_ALLOW_DYN_STATE
                0003
                0004       MODULE PTRACERS_DYN_STATE_DATA_MOD
                0005
                0006       use ptracers_dyn_state_mod
                0007
8dac14766b Oliv*0008 C     instance of ptracers internal state data structure:
                0009 C     array with one PTRACERS_ISTATE for each Ptracer
d217ad1db8 Oliv*0010       TYPE(PTRACERS_ISTATE), POINTER :: PtrISt(:)
                0011
                0012       END MODULE
                0013 #else
8dac14766b Oliv*0014 C     some compilers do not like empty files, so ...
414283d311 Oliv*0015       SUBROUTINE PTRACERS_DYN_STATE_DATA_DUMMY
91e59b53f1 Oliv*0016         RETURN
2942457bb8 Jean*0017       END
d217ad1db8 Oliv*0018 #endif
                0019