libsim Versione 7.1.11

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

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
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))

Generated with Doxygen.