libsim Versione 7.2.1

◆ dat_display()

subroutine, private dat_display ( type(vol7d_var), intent(in)  this,
integer  idat,
real  rdat,
double precision  ddat,
integer(kind=int_b bdat,
character(len=*)  cdat 
)
private

stampa a video una sintesi del contenuto

Parametri
[in]thisoggetto da visualizzare
rdatreal
ddatdouble precision
idatinteger
bdatbyte
cdatcharacter

Definizione alla linea 881 del file vol7d_class.F90.

882
883! Dimensioni principali
884IF (PRESENT(nana)) THEN
885 IF (nana >= 0) THEN
886 IF (ASSOCIATED(this%ana)) DEALLOCATE(this%ana)
887 ALLOCATE(this%ana(nana))
888 IF (linit) THEN
889 DO i = 1, nana
890 CALL init(this%ana(i))
891 ENDDO
892 ENDIF
893 ENDIF
894ENDIF
895IF (PRESENT(ntime)) THEN

Generated with Doxygen.