libsim  Versione7.2.6

◆ dat_display()

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

stampa a video una sintesi del contenuto

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

Definizione alla linea 892 del file vol7d_class.F90.

892  ENDIF
893  ENDIF
894 ENDIF
895 IF (PRESENT(ntime)) THEN
896  IF (ntime >= 0) THEN
897  IF (ASSOCIATED(this%time)) DEALLOCATE(this%time)
898  ALLOCATE(this%time(ntime))
899  IF (linit) THEN
900  DO i = 1, ntime
901  CALL init(this%time(i))
902  ENDDO
903  ENDIF
904  ENDIF
905 ENDIF

Generated with Doxygen.