|
◆ 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 933 del file vol7d_class.F90.
934 CALL init(this%network(i)) 941 nanavari, nanavarb, nanavarc, ini) 943 nanaattri, nanaattrb, nanaattrc, ini) 945 nanavarattri, nanavarattrb, nanavarattrc, ini) 947 ndativari, ndativarb, ndativarc, ini) 949 ndatiattri, ndatiattrb, ndatiattrc, ini) 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 969 IF (.NOT. ASSOCIATED(this%ana)) CALL vol7d_alloc(this, nana=1, ini=ini) 970 IF (.NOT. ASSOCIATED(this%network)) CALL vol7d_alloc(this, nnetwork=1, ini
|