libsim Versione 7.1.11
|
◆ dat_display()
stampa a video una sintesi del contenuto
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))
|