libsim  Versione7.2.3

◆ dbasession_ingest_metaanddatarv()

subroutine dballe_class::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 3890 del file dballe_class.F03.

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"
3902  call l4f_category_log(dbasession_init%category,l4f_info,"file exists; appending data to file")
3903  end if
3904  else
3905  if (.not.exist) then

Generated with Doxygen.