libsim  Versione6.3.0

◆ vol7d_c_e()

logical function, private vol7d_class::vol7d_c_e ( type(vol7d), intent(in)  this)
private

Tests whether anything has ever been assigned to a vol7d object (.TRUE.) or it is as clean as after an init (.FALSE.).

Definizione alla linea 996 del file vol7d_class.F90.

996 IF (.NOT. ASSOCIATED(this%timerange)) CALL vol7d_alloc(this, ntimerange=1, ini=ini)
997 
998 END SUBROUTINE vol7d_force_alloc_dati
999 
1000 
1001 SUBROUTINE vol7d_force_alloc(this)
1002 TYPE(vol7d),INTENT(inout) :: this
1003 
1004 ! If anything really not allocated yet, allocate with size 0
1005 IF (.NOT. ASSOCIATED(this%ana)) CALL vol7d_alloc(this, nana=0)
1006 IF (.NOT. ASSOCIATED(this%network)) CALL vol7d_alloc(this, nnetwork=0)
1007 IF (.NOT. ASSOCIATED(this%time)) CALL vol7d_alloc(this, ntime=0)
1008 IF (.NOT. ASSOCIATED(this%level)) CALL vol7d_alloc(this, nlevel=0)
1009 IF (.NOT. ASSOCIATED(this%timerange)) CALL vol7d_alloc(this, ntimerange=0)
1010 
1011 END SUBROUTINE vol7d_force_alloc
1012 
1013 
1014 FUNCTION vol7d_check_vol(this)
1015 TYPE(vol7d),INTENT(in) :: this

Generated with Doxygen.