|
◆ 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
-
rdat | real |
ddat | double precision |
idat | integer |
bdat | byte |
cdat | character |
Definizione alla linea 928 del file vol7d_class.F90.
929 IF (nnetwork >= 0) THEN
930 IF ( ASSOCIATED(this%network)) DEALLOCATE(this%network)
931 ALLOCATE(this%network(nnetwork))
934 CALL init(this%network(i))
940 CALL vol7d_varvect_alloc(this%anavar, nanavarr, nanavard, &
941 nanavari, nanavarb, nanavarc, ini)
942 CALL vol7d_varvect_alloc(this%anaattr, nanaattrr, nanaattrd, &
943 nanaattri, nanaattrb, nanaattrc, ini)
944 CALL vol7d_varvect_alloc(this%anavarattr, nanavarattrr, nanavarattrd, &
945 nanavarattri, nanavarattrb, nanavarattrc, ini)
946 CALL vol7d_varvect_alloc(this%dativar, ndativarr, ndativard, &
947 ndativari, ndativarb, ndativarc, ini)
948 CALL vol7d_varvect_alloc(this%datiattr, ndatiattrr, ndatiattrd, &
949 ndatiattri, ndatiattrb, ndatiattrc, ini)
950 CALL vol7d_varvect_alloc(this%dativarattr, ndativarattrr, ndativarattrd, &
951 ndativarattri, ndativarattrb, ndativarattrc, ini)
953 END SUBROUTINE vol7d_alloc
956 FUNCTION vol7d_check_alloc_ana(this)
957 TYPE(vol7d), INTENT(in) :: this
958 LOGICAL :: vol7d_check_alloc_ana
960 vol7d_check_alloc_ana = ASSOCIATED(this%ana) .AND. ASSOCIATED(this%network)
962 END FUNCTION vol7d_check_alloc_ana
964 SUBROUTINE vol7d_force_alloc_ana(this, ini)
965 TYPE(vol7d), INTENT(inout) :: this
966 LOGICAL, INTENT(in), OPTIONAL :: ini
|