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

       DO i = 1, nnetwork
         CALL init(this%network(i))
       ENDDO
     ENDIF
   ENDIF
 ENDIF
 ! Dimensioni dei tipi delle variabili
 CALL vol7d_varvect_alloc(this%anavar, nanavarr, nanavard, &
  nanavari, nanavarb, nanavarc, ini)
 CALL vol7d_varvect_alloc(this%anaattr, nanaattrr, nanaattrd, &
  nanaattri, nanaattrb, nanaattrc, ini)
 CALL vol7d_varvect_alloc(this%anavarattr, nanavarattrr, nanavarattrd, &
  nanavarattri, nanavarattrb, nanavarattrc, ini)
 CALL vol7d_varvect_alloc(this%dativar, ndativarr, ndativard, &
  ndativari, ndativarb, ndativarc, ini)
 CALL vol7d_varvect_alloc(this%datiattr, ndatiattrr, ndatiattrd, &
  ndatiattri, ndatiattrb, ndatiattrc, ini)
 CALL vol7d_varvect_alloc(this%dativarattr, ndativarattrr, ndativarattrd, &
  ndativarattri, ndativarattrb, ndativarattrc, ini)
 
 END SUBROUTINE vol7d_alloc
 
 
 FUNCTION vol7d_check_alloc_ana(this)
 TYPE(vol7d),INTENT(in) :: this
 LOGICAL :: vol7d_check_alloc_ana
 
 vol7d_check_alloc_ana = ASSOCIATED(this%ana) .AND. ASSOCIATED(this%network)
 
 END FUNCTION vol7d_check_alloc_ana
 
 SUBROUTINE vol7d_force_alloc_ana(this, ini)
 TYPE(vol7d),INTENT(inout) :: this
 LOGICAL,INTENT(in),OPTIONAL :: ini
 
 ! Alloco i descrittori minimi per avere un volume di anagrafica
 IF (.NOT. ASSOCIATED(this%ana)) CALL vol7d_alloc(this, nana=1, ini=ini)
 IF (.NOT. ASSOCIATED(this%network)) CALL vol7d_alloc(this, nnetwork=1, ini=ini)
 