libsim Versione 7.2.6

◆ dat_vect_display()

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

stampa a video una sintesi del contenuto

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

Definizione alla linea 899 del file vol7d_class.F90.

900 DO i = 1, ntime
901 CALL init(this%time(i))
902 ENDDO
903 ENDIF
904 ENDIF
905ENDIF
906IF (PRESENT(nlevel)) THEN
907 IF (nlevel >= 0) THEN
908 IF (ASSOCIATED(this%level)) DEALLOCATE(this%level)
909 ALLOCATE(this%level(nlevel))
910 IF (linit) THEN
911 DO i = 1, nlevel
912 CALL init(this%level(i))
913 ENDDO
914 ENDIF
915 ENDIF
916ENDIF
917IF (PRESENT(ntimerange)) THEN
918 IF (ntimerange >= 0) THEN

Generated with Doxygen.