libsim  Versione6.3.0

◆ to_char_dat()

character(len=80) function to_char_dat ( type(vol7d_var), intent(in)  this,
integer  idat,
real  rdat,
double precision  ddat,
integer(kind=int_b)  bdat,
character(len=*)  cdat 
)
Parametri
rdatreal
ddatdouble precision
idatinteger
bdatbyte
cdatcharacter

Definizione alla linea 947 del file vol7d_class.F90.

947 CALL vol7d_varvect_alloc(this%anavarattr, nanavarattrr, nanavarattrd, &
948  nanavarattri, nanavarattrb, nanavarattrc, ini)
949 CALL vol7d_varvect_alloc(this%dativar, ndativarr, ndativard, &
950  ndativari, ndativarb, ndativarc, ini)
951 CALL vol7d_varvect_alloc(this%datiattr, ndatiattrr, ndatiattrd, &
952  ndatiattri, ndatiattrb, ndatiattrc, ini)
953 CALL vol7d_varvect_alloc(this%dativarattr, ndativarattrr, ndativarattrd, &
954  ndativarattri, ndativarattrb, ndativarattrc, ini)
955 
956 END SUBROUTINE vol7d_alloc
957 
958 
959 FUNCTION vol7d_check_alloc_ana(this)
960 TYPE(vol7d),INTENT(in) :: this
961 LOGICAL :: vol7d_check_alloc_ana
962 
963 vol7d_check_alloc_ana = ASSOCIATED(this%ana) .AND. ASSOCIATED(this%network)
964 
965 END FUNCTION vol7d_check_alloc_ana
966 
967 SUBROUTINE vol7d_force_alloc_ana(this, ini)
968 TYPE(vol7d),INTENT(inout) :: this
969 LOGICAL,INTENT(in),OPTIONAL :: ini
970 
971 ! Alloco i descrittori minimi per avere un volume di anagrafica
972 IF (.NOT. ASSOCIATED(this%ana)) CALL vol7d_alloc(this, nana=1, ini=ini)
973 IF (.NOT. ASSOCIATED(this%network)) CALL vol7d_alloc(this, nnetwork=1, ini=ini)
974 
975 END SUBROUTINE vol7d_force_alloc_ana
976 
977 
978 FUNCTION vol7d_check_alloc_dati(this)
979 TYPE(vol7d),INTENT(in) :: this
980 LOGICAL :: vol7d_check_alloc_dati
981 
982 vol7d_check_alloc_dati = vol7d_check_alloc_ana(this) .AND. &
983  ASSOCIATED(this%time) .AND. ASSOCIATED(this%level) .AND. &
984  ASSOCIATED(this%timerange)
985 
986 END FUNCTION vol7d_check_alloc_dati
987 
988 SUBROUTINE vol7d_force_alloc_dati(this, ini)
989 TYPE(vol7d),INTENT(inout) :: this

Generated with Doxygen.