libsim Versione 7.1.11

◆ dbasession_ingest_metaanddatarv()

subroutine dbasession_ingest_metaanddatarv ( class(dbasession), intent(inout)  session,
type(dbametaanddatar), dimension(:), intent(inout), allocatable  metaanddatav 
)
private

Get data from DSN.

Parametri
[in,out]metaanddatavingestd data

Definizione alla linea 3885 del file dballe_class.F03.

3886if (present(filename)) then
3887
3888 lfile=.true.
3889
3890 IF (filename == '') THEN
3891! if stdio do not check existence, stdin always exist, stdout never exist
3892 exist = .NOT.lwrite
3893 ELSE
3894 INQUIRE(file=filename,exist=exist)
3895 ENDIF
3896
3897 if (lwrite)then
3898 if (lwipe.or..not.exist) then
3899 lmode="w"
3900 else
3901 lmode="a"

Generated with Doxygen.