Lines Matching refs:f_envs
165 TYPE(f_env_p_type), DIMENSION(:), POINTER, SAVE :: f_envs variable
196 IF (f_envs(isub)%f_env%id_nr == env_id) THEN
260 ALLOCATE (f_envs(0))
313 CALL destroy_force_env(f_envs(ienv)%f_env%id_nr, ierr=ierr)
316 DEALLOCATE (f_envs)
410 f_env => f_envs(f_env_pos)%f_env
446 f_env => f_envs(f_env_pos)%f_env
676 IF (n_f_envs + 1 > SIZE(f_envs)) THEN
677 f_envs_old => f_envs
678 ALLOCATE (f_envs(n_f_envs + 10))
680 f_envs(i)%f_env => f_envs_old(i)%f_env
682 DO i = n_f_envs + 1, SIZE(f_envs)
683 NULLIFY (f_envs(i)%f_env)
904 CALL f_env_create(f_envs(n_f_envs)%f_env, logger=logger, &
911 CALL f_env_rm_defaults(f_envs(n_f_envs)%f_env, ierr=ierr)
948 f_envs(i)%f_env => f_envs(i + 1)%f_env
950 NULLIFY (f_envs(n_f_envs + 1)%f_env)