libsim Versione 7.1.11
|
◆ dat_vect_display()
stampa a video una sintesi del contenuto
Definizione alla linea 905 del file vol7d_class.F90. 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
919 IF (ASSOCIATED(this%timerange)) DEALLOCATE(this%timerange)
920 ALLOCATE(this%timerange(ntimerange))
921 IF (linit) THEN
922 DO i = 1, ntimerange
923 CALL init(this%timerange(i))
924 ENDDO
|