|
◆ vol7d_display()
subroutine vol7d_display |
( |
type(vol7d), intent(in) |
this | ) |
|
stampa a video una sintesi del contenuto
- Parametri
-
[in] | this | oggetto da visualizzare |
Definizione alla linea 710 del file vol7d_class.F90.
710 SUBROUTINE dat_vect_display(this,idat,rdat,ddat,bdat,cdat) 712 TYPE(vol7d_var), intent(in) :: this(:) 716 DOUBLE PRECISION :: ddat(:) 720 INTEGER(kind=int_b) :: bdat(:) 722 CHARACTER(len=*):: cdat(:) 727 call display(this(i),idat(i),rdat(i),ddat(i),bdat(i),cdat(i)) 730 end SUBROUTINE dat_vect_display 733 FUNCTION to_char_dat(this,idat,rdat,ddat,bdat,cdat) 735 #ifdef HAVE_DBALLEF_MOD 741 TYPE(vol7d_var), INTENT(in) :: this 745 DOUBLE PRECISION :: ddat 749 INTEGER(kind=int_b) :: bdat 751 CHARACTER(len=*) :: cdat 752 CHARACTER(len=80) :: to_char_dat 754 CHARACTER(len=LEN(to_char_dat)) :: to_char_tmp 758 INTEGER :: handle, ier 761 to_char_dat= "VALUE: " 763 if ( c_e(idat)) to_char_dat=trim(to_char_dat)// " ;int> "//trim( to_char(idat)) 764 if ( c_e(rdat)) to_char_dat=trim(to_char_dat)// " ;real> "//trim( to_char(rdat)) 765 if ( c_e(ddat)) to_char_dat=trim(to_char_dat)// " ;double> "//trim( to_char(ddat)) 766 if ( c_e(bdat)) to_char_dat=trim(to_char_dat)// " ;byte> "//trim( to_char(bdat)) 769 ier = idba_messaggi(handle, "/dev/null", "w", "BUFR") 770 ier = idba_spiegab(handle,this%btable,cdat,to_char_tmp) 771 ier = idba_fatto(handle) 772 to_char_dat=trim(to_char_dat)// " ;char> "//trim(to_char_tmp) 777 to_char_dat= "VALUE: " 778 if ( c_e(idat)) to_char_dat=trim(to_char_dat)// " ;int> "//trim( to_char(idat)) 779 if ( c_e(rdat)) to_char_dat=trim(to_char_dat)// " ;real> "//trim( to_char(rdat)) 780 if ( c_e(ddat)) to_char_dat=trim(to_char_dat)// " ;double> "//trim( to_char(ddat)) 781 if ( c_e(bdat)) to_char_dat=trim(to_char_dat)// " ;byte> "//trim( to_char(bdat)) 782 if ( c_e(cdat)) to_char_dat=trim(to_char_dat)// " ;char> "//trim(cdat) 786 END FUNCTION to_char_dat 791 FUNCTION vol7d_c_e(this) RESULT(c_e) 792 TYPE(vol7d), INTENT(in) :: this 796 c_e = ASSOCIATED(this%ana) .OR. ASSOCIATED(this%time) .OR. & 797 ASSOCIATED(this%level) .OR. ASSOCIATED(this%timerange) .OR. & 798 ASSOCIATED(this%network) .OR. & 799 ASSOCIATED(this%anavar%r) .OR. ASSOCIATED(this%anavar%d) .OR. & 800 ASSOCIATED(this%anavar%i) .OR. ASSOCIATED(this%anavar%b) .OR. & 801 ASSOCIATED(this%anavar%c) .OR. & 802 ASSOCIATED(this%anaattr%r) .OR. ASSOCIATED(this%anaattr%d) .OR. & 803 ASSOCIATED(this%anaattr%i) .OR. ASSOCIATED(this%anaattr%b) .OR. & 804 ASSOCIATED(this%anaattr%c) .OR. & 805 ASSOCIATED(this%dativar%r) .OR. ASSOCIATED(this%dativar%d) .OR. & 806 ASSOCIATED(this%dativar%i) .OR. ASSOCIATED(this%dativar%b) .OR. & 807 ASSOCIATED(this%dativar%c) .OR. & 808 ASSOCIATED(this%datiattr%r) .OR. ASSOCIATED(this%datiattr%d) .OR. & 809 ASSOCIATED(this%datiattr%i) .OR. ASSOCIATED(this%datiattr%b) .OR. & 810 ASSOCIATED(this%datiattr%c) 812 END FUNCTION vol7d_c_e 853 SUBROUTINE vol7d_alloc(this, nana, ntime, nlevel, ntimerange, nnetwork, & 854 nanavarr, nanavard, nanavari, nanavarb, nanavarc, & 855 nanaattrr, nanaattrd, nanaattri, nanaattrb, nanaattrc, & 856 nanavarattrr, nanavarattrd, nanavarattri, nanavarattrb, nanavarattrc, & 857 ndativarr, ndativard, ndativari, ndativarb, ndativarc, & 858 ndatiattrr, ndatiattrd, ndatiattri, ndatiattrb, ndatiattrc, & 859 ndativarattrr, ndativarattrd, ndativarattri, ndativarattrb, ndativarattrc, & 861 TYPE(vol7d), INTENT(inout) :: this 862 INTEGER, INTENT(in), OPTIONAL :: nana 863 INTEGER, INTENT(in), OPTIONAL :: ntime 864 INTEGER, INTENT(in), OPTIONAL :: nlevel 865 INTEGER, INTENT(in), OPTIONAL :: ntimerange 866 INTEGER, INTENT(in), OPTIONAL :: nnetwork 868 INTEGER, INTENT(in), OPTIONAL :: & 869 nanavarr, nanavard, nanavari, nanavarb, nanavarc, & 870 nanaattrr, nanaattrd, nanaattri, nanaattrb, nanaattrc, & 871 nanavarattrr, nanavarattrd, nanavarattri, nanavarattrb, nanavarattrc, & 872 ndativarr, ndativard, ndativari, ndativarb, ndativarc, & 873 ndatiattrr, ndatiattrd, ndatiattri, ndatiattrb, ndatiattrc, & 874 ndativarattrr, ndativarattrd, ndativarattri, ndativarattrb, ndativarattrc 875 LOGICAL, INTENT(in), OPTIONAL :: ini 880 IF ( PRESENT(ini)) THEN 887 IF ( PRESENT(nana)) THEN 889 IF ( ASSOCIATED(this%ana)) DEALLOCATE(this%ana) 890 ALLOCATE(this%ana(nana)) 893 CALL init(this%ana(i)) 898 IF ( PRESENT(ntime)) THEN 900 IF ( ASSOCIATED(this%time)) DEALLOCATE(this%time)
Restituiscono il valore dell'oggetto in forma di stringa stampabile.
Costruttori per le classi datetime e timedelta.
|