libsim Versione 7.2.0

◆ dbasession_set()

subroutine dbasession_set ( class (dbasession), intent(in)  session,
type (dbametadata), optional  metadata,
class(dbadcv), optional  datav,
class(dbadata), optional  data,
type (dbadatetime), optional  datetime,
type (dbaana), optional  ana,
type (dbanetwork), optional  network,
type (dbalevel), optional  level,
type (dbatimerange), optional  timerange,
type (dbafilter), optional  filter 
)
private

set parameters in dballe API

Parametri
datavdata array
datetimedate and time
filterfilter for wanted data

Definizione alla linea 4341 del file dballe_class.F03.

4342!!$ call metaanddatac%extrude(session)
4343!!$end if
4344!!$
4345!!$if (present(metaanddatar)) then
4346!!$ call metaanddatar%extrude(session)
4347!!$end if
4348!!$
4349!!$if (present(metaanddatav)) then
4350!!$ call metaanddatav%extrude(session,noattr,filter)
4351!!$end if
4352!!$
4353!!$if (present(metaanddatal)) then
4354!!$ call metaanddatal%extrude(session,noattr,filter)
4355!!$end if
4356!!$
4357!!$end subroutine dbasession_extrude
4358
4359# ifndef F2003_FULL_FEATURES
4360
4361subroutine dbasession_delete(session)
4362class(dbasession), intent(inout) :: session
4363integer :: ier
4364type(dbasession) :: defsession
4365
4366if (c_e(session%sehandle)) then
4367 ier = idba_fatto(session%sehandle)
4368end if
4369
4370call session%memconnection%delete()
4371
4372select type (session)
4373type is (dbasession)
4374 session = defsession
4375end select
4376
4377!!$session%sehandle=imiss
4378!!$session%file=.false.
4379!!$session%template=cmiss
4380!!$session%filename=cmiss
4381!!$session%mode=cmiss
4382!!$session%format=cmiss
4383!!$session%simplified=.true.
4384!!$session%memdb=.false.
4385!!$session%category=imiss
4386!!$session%count=imiss
4387
4388end subroutine dbasession_delete

Generated with Doxygen.