libsim Versione 7.2.1

◆ 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 922 del file vol7d_class.F90.

923 CALL init(this%timerange(i))
924 ENDDO
925 ENDIF
926 ENDIF
927ENDIF
928IF (PRESENT(nnetwork)) THEN
929 IF (nnetwork >= 0) THEN
930 IF (ASSOCIATED(this%network)) DEALLOCATE(this%network)
931 ALLOCATE(this%network(nnetwork))
932 IF (linit) THEN
933 DO i = 1, nnetwork
934 CALL init(this%network(i))
935 ENDDO
936 ENDIF
937 ENDIF
938ENDIF
939! Dimensioni dei tipi delle variabili
940CALL vol7d_varvect_alloc(this%anavar, nanavarr, nanavard, &
941 nanavari, nanavarb, nanavarc, ini)
942CALL vol7d_varvect_alloc(this%anaattr, nanaattrr, nanaattrd, &
943 nanaattri, nanaattrb, nanaattrc, ini)
944CALL vol7d_varvect_alloc(this%anavarattr, nanavarattrr, nanavarattrd, &
945 nanavarattri, nanavarattrb, nanavarattrc, ini)
946CALL vol7d_varvect_alloc(this%dativar, ndativarr, ndativard, &
947 ndativari, ndativarb, ndativarc, ini)
948CALL vol7d_varvect_alloc(this%datiattr, ndatiattrr, ndatiattrd, &
949 ndatiattri, ndatiattrb, ndatiattrc, ini)
950CALL vol7d_varvect_alloc(this%dativarattr, ndativarattrr, ndativarattrd, &
951 ndativarattri, ndativarattrb, ndativarattrc, ini)
952
953END SUBROUTINE vol7d_alloc
954
955
956FUNCTION vol7d_check_alloc_ana(this)
957TYPE(vol7d),INTENT(in) :: this
958LOGICAL :: vol7d_check_alloc_ana
959
960vol7d_check_alloc_ana = ASSOCIATED(this%ana) .AND. ASSOCIATED(this%network)
961

Generated with Doxygen.