libsim Versione 7.2.6
|
◆ dbasession_set()
set parameters in dballe API
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!> clear a dballe session
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
|