libsim  Versione 7.2.4

◆ dbaconnection_delete()

subroutine dballe_class::dbaconnection_delete ( class (dbaconnection), intent(inout)  handle)
private

remove dballe connection

Definizione alla linea 3988 del file dballe_class.F03.

3989 if (present(filename))then
3990  if (lmemdb)then
3991  if (.not. present(connection)) then
3992  ! connect to dsn type DBA
3993  dbasession_init%memconnection=dbaconnection(dsn="mem:")
3994  !call self with memconnection without filename
3995  dbasession_init=dbasession(dbasession_init%memconnection,&
3996  write=.true.,wipe=lwrite,repinfo=lrepinfo,&
3997  memdb=lmemdb,loadfile=lloadfile) ! without categoryappend
3998 
3999  else
4000  dbasession_init%memconnection=connection
4001  !call self with memconnection without filename

Generated with Doxygen.