libsim  Versione6.3.0

◆ dbasession_set()

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

4386 end if
4387 
4388 call session%memconnection%delete()
4389 
4390 select type (session)
4391 type is (dbasession)
4392  session = defsession
4393 end select
4394 
4395 !!$session%sehandle=imiss
4396 !!$session%file=.false.
4397 !!$session%template=cmiss
4398 !!$session%filename=cmiss
4399 !!$session%mode=cmiss
4400 !!$session%format=cmiss
4401 !!$session%simplified=.true.
4402 !!$session%memdb=.false.
4403 !!$session%category=imiss
4404 !!$session%count=imiss
4405 
4406 end subroutine dbasession_delete
4407 
4408 
4410 subroutine dbasession_filerewind(session)
4411 class(dbasession), intent(inout) :: session
4412 integer :: ier
4413 
4414 if (c_e(session%sehandle).and. session%file) then
4415  ier = idba_fatto(session%sehandle)
4416  ier = idba_messaggi(session%sehandle,session%filename,session%mode,session%format)
4417 
4418 !!$! example: here we call constructor after a cast to reassign self (can you pass self attributes to constructor?)
4419 !!$ select type(session)
4420 !!$ type is (dbasession)
4421 !!$ session=dbasession(filename=session%filename,mode=session%mode,format=session%format)
4422 !!$ end select
4423 
4424 end if
4425 
4426 end subroutine dbasession_filerewind
4427 
4428 
4429 FUNCTION dballe_error_handler(category)
4430 INTEGER :: category, code, l4f_level
4431 INTEGER :: dballe_error_handler
4432 

Generated with Doxygen.