libsim  Versione6.3.0

◆ 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 3910 del file dballe_class.F03.

3910 ! if stdio do not check existence, stdin always exist, stdout never exist
3911  exist = .NOT.lwrite
3912  ELSE
3913  INQUIRE(file=filename,exist=exist)
3914  ENDIF
3915 
3916  if (lwrite)then
3917  if (lwipe.or..not.exist) then
3918  lmode="w"
3919  else
3920  lmode="a"
3921  call l4f_category_log(dbasession_init%category,l4f_info,"file exists; appending data to file")
3922  end if
3923  else
3924  if (.not.exist) then
3925  call l4f_category_log(dbasession_init%category,l4f_error,"file does not exist; cannot open file for read")

Generated with Doxygen.