libsim  Versione6.3.0

◆ dat_display()

subroutine, private vol7d_class::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 906 del file vol7d_class.F90.

906  ENDIF
907  ENDIF
908 ENDIF
909 IF (PRESENT(nlevel)) THEN
910  IF (nlevel >= 0) THEN
911  IF (ASSOCIATED(this%level)) DEALLOCATE(this%level)
912  ALLOCATE(this%level(nlevel))
913  IF (linit) THEN
914  DO i = 1, nlevel
915  CALL init(this%level(i))
916  ENDDO
917  ENDIF
918  ENDIF
919 ENDIF
Costruttori per le classi datetime e timedelta.

Generated with Doxygen.