libsim Versione 7.2.0
|
◆ dat_display()
stampa a video una sintesi del contenuto
Definizione alla linea 881 del file vol7d_class.F90. 882
883! Dimensioni principali
884IF (PRESENT(nana)) THEN
885 IF (nana >= 0) THEN
886 IF (ASSOCIATED(this%ana)) DEALLOCATE(this%ana)
887 ALLOCATE(this%ana(nana))
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
|