epel-7-x86_64/05931660-libsim/libsim-doc-7.1.6-1.x86_64.rpm

program example_dballe


use dballe_class

use datetime_class

use log4fortran

implicit none


integer :: i

type(dbasession) :: session,sessionfrom,sessionto

type(dbaconnection) :: connection,connectionfrom


type (dbacoord) :: coord

type (dbaana) :: ana

type (dbadatetime) :: mydatetime

type (dbalevel) :: level

type (dbanetwork) :: network

type (dbatimerange) :: timerange

type (dbametadata) :: metadata

type (dbadatar) :: datar

type (dbametaanddatar) :: metaanddatar

type (dbadc) :: dc

type (dbadcv) :: dcv

type (dbametaanddatav) :: metaanddatav

type (dbadataattrv) :: dataattrv

type (dbametaanddata) :: metaandata


integer :: category,ier

character(len=512):: a_name


!questa chiamata prende dal launcher il nome univoco

call l4f_launcher(a_name,a_name_force="example",a_name_append="main")

!init di log4fortran

ier=l4f_init()

!imposta a_name

category=l4f_category_get(a_name//".main")


call l4f_category_log(category,l4f_info,"example_dballe")


!Oggetti:


!dbacoord : fortran 2003 interface to geo_coord

coord=dbacoord(lon=10.d0,lat=45.d0)

!dbaana : ana metadata

ana=dbaana(coord,ident="mianave")


!dbadatetime : datetime metadata

mydatetime=dbadatetime(datetime_new(2014,01,06,18,00))


!dbalevel : level metadata

level=dbalevel(level1=105, l1=2000)


!dbanetwork : network metadata

network=dbanetwork("generic")


!dbatimerange : timerange metadata

timerange=dbatimerange(timerange=4, p1=3600,p2=7200)


!dbametadata : summ of all metadata pieces

metadata=dbametadata(level=level,timerange=timerange,ana=ana,network=network,datetime=mydatetime)


!dbametaanddatar : metadata and real data

metaanddatar%metadata=metadata

metaanddatar%dbadatar=datar

!dbametaanddatarlist : metadata and real data double linked list


!dbametaanddatai : metadata and integer data

!dbametaanddatailist : metadata and integer data double linked list


!dbametaanddatab : metadata and byte data

!dbametaanddatablist : metadata and byte data double linked list


!dbametaanddatac : metadata and character data

!dbametaanddataclist : metadata and character data double linked list


!dbametaanddatad : metadata and doubleprecision data

!dbametaanddatadlist : metadata and diubleprecision data double linked list


!dbadc : container for dbadata (used for promiscuous vector of data)

allocate(dc%dat,source=dbadatai("B12102",26312))


!dbadcv : vector of container of dbadata

allocate (dcv%dcv(2))

allocate (dcv%dcv(1)%dat,source=dbadatai("B12102",26312))

allocate (dcv%dcv(2)%dat,source=dbadatar("B12101",273.15))


!dbametaanddatav one metadata plus vector of container of dbadata

metaanddatav%metadata=metadata

metaanddatav%datav=dcv


!dbadataattrv : vector of dbadataattr (more data plus attributes)

allocate(dataattrv%dataattr(2))

dataattrv%dataattr(1)%dbadc=dc

dataattrv%dataattr(1)%attrv=dcv


!dbametaanddata : one metadata plus vector of container of dbadata  plus attributes

metaandata%metadata=metadata

metaandata%dataattrv=dataattrv


!dbametaanddatalist double linked list of dbametaanddata


call l4f_category_log(category,l4f_info,"connect to dsn type DBA")


connection=dbaconnection(dsn="sqlite:/tmp/dballe.sqlite")

session=dbasession(connection,wipe=.true.,anaflag="write", dataflag="write", attrflag="write")


call l4f_category_log(category,l4f_info,"write1")

call write1()    ! write etherogeneous ensamble of data with attributes and constant data using macro object

call l4f_category_log(category,l4f_info,"write2")

call write2()    ! write an omogeneous vector of data

call l4f_category_log(category,l4f_info,"write3")

call write3()    ! write an etherogeneous ensamble of data

call l4f_category_log(category,l4f_info,"write4")

call write4()    ! write an etherogeneous ensamble of data and attributes

call l4f_category_log(category,l4f_info,"write5")

call write5()    ! write a content of DSN to a file with filter

call l4f_category_log(category,l4f_info,"read2")

call read2()     ! read data and attributes for data filtered and ordered by btable with type predefined

call l4f_category_log(category,l4f_info,"delete1")

call delete1()   ! delete one var from the entire DB

call l4f_category_log(category,l4f_info,"delete2")

call delete2()   ! delete one var only where are some defined metadata

call l4f_category_log(category,l4f_info,"delete3")

call delete3()   ! delete some attributes from one var only where are some defined metadata

call l4f_category_log(category,l4f_info,"read1")

call read1()     ! read ana, data and attributes for constant data, data and attributes for data

call l4f_category_log(category,l4f_info,"read3")

call read3()     ! read an omogeneous vector of data

call l4f_category_log(category,l4f_info,"read4")

call read4l()    ! read data and attributes for data in a double linked list

call l4f_category_log(category,l4f_info,"copy1")

call copy1()     ! copy data and attributes of everythings to an other dsn

call l4f_category_log(category,l4f_info,"copy2")

call copy2()     ! copy data and constant data to an other dsn


!close everythings

call session%delete()

call connection%delete()


call l4f_category_log(category,l4f_info,"connect to dsn type BUFR file for write")

session=dbasession(filename="example_dballe.bufr",wipe=.true.,write=.true.,memdb=.false.)


call l4f_category_log(category,l4f_info,"write0")

call write0()    ! write ana on file

call l4f_category_log(category,l4f_info,"write1")

call write1()    ! write etherogeneous ensamble of data with attributes and constant data using macro object

call l4f_category_log(category,l4f_info,"write2")

call write2()    ! write an omogeneous vector of data

call l4f_category_log(category,l4f_info,"write3")

call write3()    ! write an etherogeneous ensamble of data

call l4f_category_log(category,l4f_info,"write4")

call write4()    ! write an etherogeneous ensamble of data and attributes


!close everythings

call session%delete()


call l4f_category_log(category,l4f_info,"connect to dsn type BUFR file for read")

session=dbasession(filename="example_dballe.bufr",memdb=.false.)


call l4f_category_log(category,l4f_info,"read1lf")

call read1lf()     ! read ana, data and attributes for constant data, data and attributes for data in list

call l4f_category_log(category,l4f_info,"read2lf")

call read2lf()     ! read data and attributes for data filtered and ordered by btable with type predefined in list


!! note: I cannot read from file without filter (filter do not work on file) and put everythings in real matrix

!! we get error putting somethings that do not fit in real (like station name)

!! call read3lf()     ! read an omogeneous vector of data


! use memdb

call l4f_category_log(category,l4f_info,"read3lfmem")

call read3lfmem()    ! read an omogeneous vector of data from file using list and mem (and filters)

call l4f_category_log(category,l4f_info,"readmem")

call readmem()       ! read an list of data from file  using mem (and filters)


call l4f_category_log(category,l4f_info,"connect to dsn type BUFR file for read")

sessionfrom=dbasession(filename="example_dballe.bufr",memdb=.false.)

call l4f_category_log(category,l4f_info,"connect to dsn type BUFR file for write")

sessionto=dbasession(filename="example_dballe_copy1f.bufr",wipe=.true.,write=.true.,memdb=.false.)

call l4f_category_log(category,l4f_info,"copy1f")

call copy1f()     ! copy data and attributes of everythings to an other file

! todo

!call l4f_category_log(category,L4F_INFO,"copy2f")

!call copy2f()     ! copy data and constant data to an other file

!close everythings

call sessionto%delete()

call sessionfrom%delete()


call l4f_category_log(category,l4f_info,"use memdb: connect to dsn type DBA")

connectionfrom=dbaconnection(dsn="mem:")

sessionfrom=dbasession(connectionfrom,wipe=.true.,anaflag="write", dataflag="write", attrflag="write")

call sessionfrom%messages_open_input(filename="example_dballe.bufr",mode="r",format="BUFR",simplified=.true.)


call l4f_category_log(category,l4f_info,"connect to dsn type BUFR file for write")

sessionto=dbasession(filename="example_dballe_copy1fmem.bufr",wipe=.true.,write=.true.,memdb=.false.)

call l4f_category_log(category,l4f_info,"copy1fmem")

call copy1fmem()     ! copy data and attributes of everythings to an other file using mem for input

call sessionto%delete()


call sessionfrom%messages_open_output(filename="example_dballe_copyf2mem.bufr")

call l4f_category_log(category,l4f_info,"copy1f2mem")

call copy1f2mem()     ! copy data and attributes of everythings to an other file using mem for input and output


!close everythings

call sessionfrom%delete()

call connectionfrom%delete()


contains


subroutine write0()


type(dbasession) :: sessionana

type(dbaanalist) :: anal

type(dbaana) :: ana

logical :: status


! connect to dsn type BUFR file for write

sessionana=dbasession(filename="example_dballe_ana.bufr",wipe=.true.,write=.true.,memdb=.false.)


call anal%append(dbaana(lon=11.d0,lat=45.d0))

call anal%append(dbaana(lon=12.d0,lat=45.d0))

call anal%append(dbaana(lon=13.d0,lat=45.d0))


call anal%display()


call anal%rewind()

!extrude ana

do while (anal%element())

  ana=anal%current()

  call ana%extrude(sessionana)

  call anal%next()

end do


call sessionana%delete()

status=anal%delete()


end subroutine write0


subroutine write1()


type(dbametaanddata),allocatable :: metaanddata(:)

type(dbadcv) :: attrv


print *,"----------------------------------------------"

print *,"--------------- write1 ------------------------"


allocate(metaanddata(2))   ! one metadata for data and one for constant data


metaanddata(1)%metadata=dbametadata( &

  level=dbalevel(level1=105, l1=2000) &

 ,timerange=dbatimerange(timerange=4, p1=3600,p2=7200) &

 ,ana=dbaana(lon=10.d0,lat=45.d0) &

 ,network=dbanetwork("generic") &

 ,datetime=dbadatetime(datetime_new(2014,01,06,18,00)))


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

! create  an etherogeneous ensamble of data

allocate (metaanddata(1)%dataattrv%dataattr(2))


! first data

allocate (metaanddata(1)%dataattrv%dataattr(1)%dat,source=dbadatai("B13003",85))


! create an etherogeneous ensamble of attr

allocate (attrv%dcv(3))

allocate (attrv%dcv(1)%dat,source=dbadatar("*B33192",30.))

allocate (attrv%dcv(2)%dat,source=dbadatai("*B33193",50))

allocate (attrv%dcv(3)%dat,source=dbadatar("*B33194",70.))

!assemble data and attribute

metaanddata(1)%dataattrv%dataattr(1)%attrv=attrv


! second data

allocate (metaanddata(1)%dataattrv%dataattr(2)%dat,source=dbadatai("B12101",27315))

! create an etherogeneous ensamble of attr

deallocate(attrv%dcv)

allocate (attrv%dcv(2))

allocate (attrv%dcv(1)%dat,source=dbadatar("*B33192",30.))

allocate (attrv%dcv(2)%dat,source=dbadatai("*B33193",50))

!assemble data and attribute

metaanddata(1)%dataattrv%dataattr(2)%attrv=attrv

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

! station costant data

! copy the same metadata setting that here we have constant in time data

metaanddata(2)%metadata=metaanddata(1)%metadata%dbacontextana()

! create  an etherogeneous ensamble of data

allocate (metaanddata(2)%dataattrv%dataattr(2))

allocate (metaanddata(2)%dataattrv%dataattr(1)%dat,source=dbadatai("B07030",223))

allocate (metaanddata(2)%dataattrv%dataattr(1)%attrv%dcv(0))          ! we do not want attributes

allocate (metaanddata(2)%dataattrv%dataattr(2)%dat,source=dbadatac("B01019","My beautifull station"))

allocate (metaanddata(2)%dataattrv%dataattr(2)%attrv%dcv(0))          ! we do not want attributes

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

! display and save everythings

do i=1,size(metaanddata)

  call metaanddata(i)%display()

  !call session%extrude(metaanddata(i))

  call metaanddata(i)%extrude(session)

end do

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


end subroutine write1


subroutine write2()


type(dbadatar),allocatable :: data(:)


type(dbalevel) :: level

type(dbatimerange) :: timerange

type(dbaana) :: ana

type(dbanetwork) :: network

type(dbadatetime) :: datetime


print *,"----------------------------------------------"

print *,"--------------- write2 ------------------------"


!clear the dballe session

call session%unsetall()


! set and display metadata

level=dbalevel(level1=105, l1=2000)

call level%display()

timerange=dbatimerange(timerange=4, p1=3600,p2=7200)

call timerange%display()

!ana=dbaana(coord=dbacoord(ilon=1000000,ilat=4500000))

ana=dbaana(lon=11.d0,lat=45.d0)

call ana%display()

network=dbanetwork("generic")

call network%display()

datetime=dbadatetime(datetime_new(2014,01,06,18,00))

call datetime%display()


! can set metadata  step by step

call session%set(level=level)

call session%set(timerange=timerange)

call session%set(ana=ana)

call session%set(network=network)

call session%set(datetime=datetime)


! I can use the reverse vision  step by step

!call level%dbaset(session)

!call timerange%dbaset(session)

!call ana%dbaset(session)

!call network%dbaset(session)

!call datetime%dbaset(session)


! create an omogeneous vector of data

allocate (data(2),source=[dbadatar("B12102",265.33),dbadatar("B12101",273.15)])


!set and display omogeneous data

do i =1,size(data)

  call data(i)%display()

  call session%set(data=data(i))

  !call data(i)%dbaset(session)

end do


!write it in dsn or file

call session%prendilo()

!!$session%enq(metadata)


!close message if I am writing on file

call session%close_message()


end subroutine write2


subroutine write3()


type(dbametadata) :: metadata

type(dbadcv) :: datav

type(dbalevel) :: level

type(dbatimerange) :: timerange

type(dbaana) :: ana

type(dbanetwork) :: network

type(dbadatetime) :: datetime


print *,"----------------------------------------------"

print *,"--------------- write3 ------------------------"


!clear the dballe session

call session%unsetall()


! set metadata

level=dbalevel(level1=105, l1=2000)

timerange=dbatimerange(timerange=4, p1=3600,p2=7200)

ana=dbaana(lon=12.d0,lat=45.d0)

network=dbanetwork("generic")

datetime=dbadatetime(datetime_new(2014,01,06,18,00))


!assemble metadata

metadata=dbametadata(level=level,timerange=timerange,ana=ana,network=network,datetime=datetime)

call metadata%display()


! I can set metadata one shot

call session%set(metadata)

! or in the reverse vision

!call metadata%dbaset(session)


call metadata%display()


! create and display an etherogeneous ensamble of data

allocate (datav%dcv(2))

allocate (datav%dcv(1)%dat,source=dbadatai("B12102",26312))

allocate (datav%dcv(2)%dat,source=dbadatar("B12101",273.15))

call datav%display()

!set data

call session%set(datav=datav)


! or in the reverse vision

!call datav%dbaset(session)


!write it in dsn

call session%prendilo()

!!$session%enq(metadata)


!close message if I am writing on file

call session%close_message()


end subroutine write3


subroutine write4()


type(dbametadata) :: metadata

type(dbadataattrv) :: dataattrv

type(dbadcv) :: attrv

type(dbadcv) :: datav


print *,"----------------------------------------------"

print *,"--------------- write4 ------------------------"


! clear the dballe session

call session%unsetall()


! define metadata

metadata=dbametadata( &

  level=dbalevel(level1=105, l1=2000) &

 ,timerange=dbatimerange(timerange=4, p1=3600,p2=7200) &

 ,ana=dbaana(lon=13.d0,lat=45.d0) &

 ,network=dbanetwork("generic") &

 ,datetime=dbadatetime(datetime_new(2014,01,06,18,00)))


call session%set(metadata)


! create and display an etherogeneous ensamble of data

allocate (datav%dcv(2))

allocate (datav%dcv(1)%dat,source=dbadatai("B12102",26312))

allocate (datav%dcv(2)%dat,source=dbadatar("B12101",273.15))


! create and display an etherogeneous ensamble of attr

allocate (attrv%dcv(3))

allocate (attrv%dcv(1)%dat,source=dbadatai("*B33192",30))

allocate (attrv%dcv(2)%dat,source=dbadatac("*B33193","70"))

allocate (attrv%dcv(3)%dat,source=dbadatad("*B33194",50.d0))

call attrv%display()


! assemble data and attribute

allocate (dataattrv%dataattr(2))

! first with attribute

allocate (dataattrv%dataattr(1)%dat,source=datav%dcv(1)%dat)

dataattrv%dataattr(1)%attrv=attrv

! second without attribute

allocate (dataattrv%dataattr(2)%dat,source=datav%dcv(2)%dat)

allocate (dataattrv%dataattr(2)%attrv%dcv(0))


call dataattrv%display()


! write data and attribute

!call session%extrude(dataattrv)

call dataattrv%extrude(session)


! work on constant station data

call session%set(metadata%dbacontextana())


! write the same data and attribute as constant station data

!call session%extrude(dataattrv)

call dataattrv%extrude(session)


end subroutine write4


subroutine write5()


print *,"----------------------------------------------"

print *,"--------------- write5 ------------------------"


call session%messages_open_output(filename="example_dballe_write5.bufr")


call session%set(filter=dbafilter(coordmin=dbacoord(lon= 9.d0,lat=44.d0),&

                 coordmax=dbacoord(lon=11.d0,lat=46.d0)))

call session%messages_write_next()


end subroutine write5


subroutine read1()


type(dbametaanddata),allocatable :: metaanddatav(:)

type(dbaana),allocatable :: ana(:)

type(dbafilter) :: filter

integer :: i


print *,"----------------------------------------------"

print *,"--------------- read1 ------------------------"


call session%set(filter=dbafilter())


print *, "anagrafica:"

filter=dbafilter(coordmin=dbacoord(lon= 9.d0,lat=44.d0),&

                 coordmax=dbacoord(lon=11.d0,lat=46.d0))

call session%set(filter=filter)

call session%ingesta(ana)

do i=1,size(ana)

  call ana(i)%display()

end do

deallocate(ana)


print *, "dati di anagrafica:"

call session%set(filter=dbafilter(contextana=.true.))

call session%ingest(metaanddatav)

do i=1,size(metaanddatav)

  call metaanddatav(i)%display()

end do

deallocate(metaanddatav)


print *, "dati dati:"

filter=dbafilter(var="B12102")

call filter%display()

call session%set(filter=filter)

call session%ingest(metaanddatav)


do i=1,size(metaanddatav)

  call metaanddatav(i)%display()

end do


deallocate(metaanddatav)


end subroutine read1


subroutine read1lf()


type(dbametaanddatalist) :: metaanddatal

type(dbaanalist) :: anal

logical :: status


print *,"----------------------------------------------"

print *,"--------------- read1lf ------------------------"


! here (reading from file) we cannot use filters !!!


! rewind

call session%filerewind()


print *, "anagrafica:"

call session%ingesta(anal)

call anal%display()

status=anal%delete()


! rewind

call session%filerewind()


print *, "dati di anagrafica:"

call session%ingest(metaanddatal,filter=dbafilter(contextana=.true.))

call metaanddatal%display()

status = metaanddatal%delete()


! rewind

call session%filerewind()


print *, "dati dati:"

metaanddatal=dbametaanddatalist()

call session%ingest(metaanddatal)

call metaanddatal%display()

status = metaanddatal%delete()


end subroutine read1lf


subroutine read2()


type(dbametaanddata),allocatable :: metaanddatav(:)

type(dbafilter) :: filter

integer :: i

type(dbadcv) :: vars,starvars

integer :: ivalue

real :: rvalue

character(len=128) :: cvalue


print *,"----------------------------------------------"

print *,"--------------- read2 ------------------------"


allocate (vars%dcv(2))

allocate (vars%dcv(1)%dat,source=dbadatai("B12101"))

allocate (vars%dcv(2)%dat,source=dbadatac("B12102"))


filter=dbafilter(vars=vars)

print *, "filter:"

call filter%display()

call session%set(filter=filter)

call session%ingest(metaanddatav,filter=filter,noattr=.true.)


print *, "dati dati:"

do i=1,size(metaanddatav)

  call metaanddatav(i)%display()

end do


!!!!!!!!!!!!!!!!

! how use values

associate(dato => metaanddatav(1)%dataattrv%dataattr(1)%dat)

print *,dato%btable

! with cast

select type (dato)

type is (dbadatai)

  print *,"cast integer value",dato%value

type is (dbadatar)

  print *,"cast real value",dato%value

type is (dbadatac)

  print *,"cast character value",dato%value

end select


! calling %get

call dato%get(ivalue)

if (c_e(ivalue)) print *,"get  integer value",ivalue

call dato%get(rvalue)

if (c_e(rvalue)) print *,"get  real value",rvalue

call dato%get(cvalue)

if (c_e(cvalue)) print *,"get  char value",cvalue

end associate

!!!!!!!!!!!!!!!!


deallocate (vars%dcv)

allocate (vars%dcv(2))

allocate (vars%dcv(1)%dat,source=dbadatai("B13003"))

allocate (vars%dcv(2)%dat,source=dbadatac("B12102"))

allocate (starvars%dcv(3))

allocate (starvars%dcv(1)%dat,source=dbadatai("*B33192"))

allocate (starvars%dcv(2)%dat,source=dbadatac("*B33193"))

allocate (starvars%dcv(3)%dat,source=dbadatad("*B33194"))


filter=dbafilter(vars=vars,starvars=starvars)

print *, "filter:"

call filter%display()

call session%set(filter=filter)

call session%ingest(metaanddatav,filter=filter)


print *, "dati dati:"

do i=1,size(metaanddatav)

  call metaanddatav(i)%display()

end do


deallocate(metaanddatav)


end subroutine read2


subroutine read2lf()


type(dbametaanddatalist) :: metaanddatal

type(dbafilter) :: filter

type(dbadcv) :: vars,starvars

logical :: status


print *,"----------------------------------------------"

print *,"--------------- read2lf ------------------------"


! rewind

call session%filerewind()


allocate (vars%dcv(2))

allocate (vars%dcv(1)%dat,source=dbadatai("B13003"))

allocate (vars%dcv(2)%dat,source=dbadatac("B12102"))

allocate (starvars%dcv(3))

allocate (starvars%dcv(1)%dat,source=dbadatai("*B33192"))

allocate (starvars%dcv(2)%dat,source=dbadatac("*B33193"))

allocate (starvars%dcv(3)%dat,source=dbadatad("*B33194"))


filter=dbafilter(vars=vars,starvars=starvars)

!print *, "filter:"

!call filter%display()


call session%ingest(metaanddatal,filter=filter)


print *, "dati dati:"

call metaanddatal%display()


status=metaanddatal%delete()


end subroutine read2lf


subroutine read3()


type(dbametaanddatar),allocatable :: metaanddatarv(:)

type(dbafilter) :: filter

integer :: i


print *,"----------------------------------------------"

print *,"--------------- read3 ------------------------"


print *, "dati dati:"

filter=dbafilter(var="B12102")

call filter%display()

call session%set(filter=filter)

call session%ingest(metaanddatarv)


do i=1,size(metaanddatarv)

  call metaanddatarv(i)%display()

end do


print *,"max=",maxval(metaanddatarv(:)%dbadatar%value)

print *,"livelli", metaanddatarv(:)%metadata%level


deallocate(metaanddatarv)


end subroutine read3


!!$subroutine read3l()

!!$

!!$type(dbametaanddatarlist) :: metaanddatarl

!!$type(dbametaanddatar),allocatable :: metaanddatarv(:)

!!$type(dbafilter) :: filter

!!$logical :: status

!!$

!!$print *,"----------------------------------------------"

!!$print *,"--------------- read3l ------------------------"

!!$

!!$! rewind

!!$call session%filerewind()

!!$

!!$print *, "dati dati:"

!!$filter=dbafilter(var="B12102")

!!$call session%set(filter=filter)

!!$call session%ingest(metaanddatarl)

!!$

!!$call metaanddatarl%display()

!!$

!!$metaanddatarv=metaanddatarl%toarray()

!!$print *,"max=",maxval(metaanddatarv(:)%dbadatar%value)

!!$

!!$status = metaanddatarl%delete()

!!$

!!$end subroutine read3l


subroutine read3lfmem()


type(dbametaanddatarlist) :: metaanddatarl

type(dbametaanddatar),allocatable :: metaanddatarv(:)

type(dbafilter) :: filter

logical :: status

integer :: i


print *,"----------------------------------------------"

print *,"--------------- read3lfmem ------------------------"


! connect to dsn type DBA

connection=dbaconnection(dsn="mem:")

session=dbasession(connection,wipe=.true.,anaflag="write", dataflag="write", attrflag="write",memdb=.true.)

call session%messages_open_input(filename="example_dballe.bufr",mode="r",format="BUFR",simplified=.true.)


filter=dbafilter(var="B12101")


! data

do while (session%messages_read_next())


  call session%set(filter=filter)


  call session%ingest()

  call session%ingest(metaanddatarv)


  do i=1,size(metaanddatarv)

    call metaanddatarv(i)%display()

    call metaanddatarl%append(metaanddatarv(i))

  end do


  call session%remove_all()

  deallocate (metaanddatarv)

end do


print *, "dati dati:"

call metaanddatarl%display()


metaanddatarv=metaanddatarl%toarray()

print *,"max=",maxval(metaanddatarv(:)%dbadatar%value)


status = metaanddatarl%delete()


!close everythings

call session%delete()

call connection%delete()


end subroutine read3lfmem


subroutine readmem()


type(dbametaanddatalist) :: metaanddatal

type(dbafilter) :: filter

logical :: status


print *,"----------------------------------------------"

print *,"--------------- readmem ------------------------"


! create mem db where put bufr from file

session=dbasession(wipe=.true.,&

 filename="example_dballe.bufr",mode="r",format="BUFR",memdb=.true.,loadfile=.false.)


filter=dbafilter(var="B12101")

! in this case we have to pass filter and do not set it

call session%ingest(metaanddatal,filter=filter)


print *, "dati dati:"

call metaanddatal%display()


status = metaanddatal%delete()


call session%delete()


end subroutine readmem


subroutine read4l()


type(dbametaanddata) :: myelement

type(dbametaanddatalist) :: metaanddatal

type(dbafilter) :: filter


print *,"----------------------------------------------"

print *,"--------------- read4l ------------------------"


print *, "dati dati:"

filter=dbafilter(var="B12102")

!call session%set(filter=filter)


print*,"prima di ingest"

call session%ingest(metaanddatal,filter=filter)

print*,"prima di display"

call metaanddatal%display()


print *,"number of list elements=",metaanddatal%countelements()

print *,"seek return status =", metaanddatal%seek(1)

myelement=metaanddatal%current()

print *,"list index 1 ="

call myelement%display()

print *,"status delete=", metaanddatal%delete()


end subroutine read4l


subroutine delete1()


type(dbafilter) :: filter


print *,"----------------------------------------------"

print *,"--------------- delete1 ----------------------"


filter=dbafilter(var="B12101")

call session%set(filter=filter)

call session%dissolve()


end subroutine delete1


subroutine delete2()


type(dbametadata),allocatable :: metadata(:)

type(dbafilter) :: filter


print *,"----------------------------------------------"

print *,"--------------- delete2 ----------------------"


allocate(metadata(1))


metadata(1)=dbametadata( &

  level=dbalevel(level1=105, l1=2000) &

 ,timerange=dbatimerange(timerange=4, p1=3600,p2=7200) &

 ,ana=dbaana(lon=11.d0,lat=45.d0) &

 ,network=dbanetwork("generic") &

 ,datetime=dbadatetime(datetime_new(2014,01,06,18,00)))


filter=dbafilter(var="B12102")

call session%set(filter=filter)

call session%dissolve(metadata)


deallocate(metadata)


end subroutine delete2


subroutine delete3()


type(dbametadata),allocatable :: metadata(:)

type(dbafilter) :: filter


print *,"----------------------------------------------"

print *,"--------------- delete3 ----------------------"


allocate(metadata(1))


metadata(1)=dbametadata( &

  level=dbalevel(level1=105, l1=2000) &

 ,timerange=dbatimerange(timerange=4, p1=3600,p2=7200) &

 ,ana=dbaana(lon=13.d0,lat=45.d0) &

 ,network=dbanetwork("generic") &

 ,datetime=dbadatetime(datetime_new(2014,01,06,18,00)))


filter=dbafilter(var="B12102",starvarlist="*B33194,*B33193")

call session%set(filter=filter)

call session%dissolveattr(metadata)


deallocate(metadata)


end subroutine delete3


subroutine copy1()

type(dbasession)    :: sessioncp

type(dbaconnection) :: connectioncp

type(dbametaanddata):: metaanddata


print *,"----------------------------------------------"

print *,"--------------- copy1 ----------------------"


! connect to dsn

connectioncp=dbaconnection(dsn="sqlite:/tmp/dballecopy1.sqlite")

!connectioncp=dbaconnection(dsn="mem:/tmp/dballecopy1")

sessioncp=dbasession(connectioncp,wipe=.true.,anaflag="write", dataflag="write", attrflag="write")


! data

call session%set(filter=dbafilter())

call session%ingest()

do while (c_e(session%count) .and. session%count > 0 )

  call session%ingest (metaanddata)

  !call sessioncp%extrude(metaanddata)

  call metaanddata%extrude(sessioncp)

  if (session%file) call session%close_message()

end do


! constant data

call session%set(filter=dbafilter(contextana=.true.))

call session%ingest()

do while (c_e(session%count) .and. session%count > 0)

  call session%ingest (metaanddata)

  !call sessioncp%extrude(metaanddata)

  call metaanddata%extrude(sessioncp)

  if (session%file) call session%close_message()

end do


!close everythings

call sessioncp%delete()

call connectioncp%delete()


end subroutine copy1


subroutine copy1f()

type(dbametaanddata), allocatable:: metaanddatav(:)

integer :: i


print *,"----------------------------------------------"

print *,"--------------- copy1f ----------------------"


! data

call sessionfrom%filerewind()


call sessionfrom%set(filter=dbafilter())

call sessionfrom%ingest(metaanddatav)

do while (size(metaanddatav) >0)

  print*,"read/write data; count: ",sessionfrom%count

  do i =1,size(metaanddatav)

    print *, "display metaanddatav index: ", i

!    call metaanddatav(i)%display()

    !call sessionto%extrude(metaanddatav(i))

    call metaanddatav(i)%extrude(sessionto)

  end do

!  call sessionto%close_message()

  call sessionfrom%ingest(metaanddatav)

end do

deallocate (metaanddatav)


! constant data

call sessionfrom%filerewind()


call sessionfrom%set(filter=dbafilter(contextana=.true.))

call sessionfrom%ingest(metaanddatav)

do while (size(metaanddatav) >0)

  print*,"read/write data; count: ",sessionfrom%count

  do i =1,size(metaanddatav)

    print *, "display metaanddatav index: ", i

!    call metaanddatav(i)%display()

    !call sessionto%extrude(metaanddatav(i))

    call metaanddatav(i)%extrude(sessionto)

  end do

!  call sessionto%close_message()

  call sessionfrom%ingest(metaanddatav)

end do


end subroutine copy1f


subroutine copy1fmem()

type(dbametaanddata),allocatable :: metaanddatav(:)

integer :: i


print *,"----------------------------------------------"

print *,"--------------- copy1fmem ----------------------"


do while (sessionfrom%messages_read_next())

  print*,"read/write message"

  call sessionfrom%set(filter=dbafilter())

  call sessionfrom%ingest(metaanddatav)

  do i =1,size(metaanddatav)

    call metaanddatav(i)%display()

    !call sessionto%extrude(metaanddatav(i))

    call metaanddatav(i)%extrude(sessionto)

  end do

  call sessionto%prendilo()


  print *,"contextana"

  call sessionfrom%set(filter=dbafilter(contextana=.true.))

  call sessionfrom%ingest(metaanddatav)

  do i =1,size(metaanddatav)

    call metaanddatav(i)%display()

    !call sessionto%extrude(metaanddatav(i))

    call metaanddatav(i)%extrude(sessionto)

  end do

  call sessionto%close_message()

  call sessionfrom%remove_all()

end do


end subroutine copy1fmem


subroutine copy1f2mem()


print *,"----------------------------------------------"

print *,"--------------- copy1f2mem ----------------------"


do while (sessionfrom%messages_read_next())

  call sessionfrom%messages_write_next()

  call sessionfrom%remove_all()

end do


end subroutine copy1f2mem


subroutine copy2()

type(dbasession)    :: sessioncp

type(dbaconnection) :: connectioncp

type(dbametaanddatac):: metaanddatac


print *,"----------------------------------------------"

print *,"--------------- copy2 ----------------------"


! connect to dsn

connectioncp=dbaconnection(dsn="sqlite:/tmp/dballecopy2.sqlite")

sessioncp=dbasession(connectioncp,wipe=.true.,anaflag="write", dataflag="write", attrflag="write")


! use character type


! data

call session%set(filter=dbafilter())

call session%ingest_metaanddatac()

do while (c_e(session%count) .and. session%count > 0)

  call session%ingest_metaanddatac(metaanddatac)

  !call sessioncp%extrude(metaanddatac)

  call metaanddatac%extrude(sessioncp)

end do


! constant data

call session%set(filter=dbafilter(contextana=.true.))

call session%ingest_metaanddatac()

do while (c_e(session%count) .and. session%count > 0)

  call session%ingest_metaanddatac(metaanddatac)

  !call sessioncp%extrude(metaanddatac)

  call metaanddatac%extrude(sessioncp)

end do


!close everythings

call sessioncp%delete()

call connectioncp%delete()


end subroutine copy2


end program example_dballe
Tipi di dato
interface	dbaana
	ana metadata Continua...

type	dbaanalist
	double linked list of ana Continua...

interface	dbaconnection
	manage connection handle to a DSN Continua...

interface	dbacoord
	fortran 2003 interface to geo_coord Continua...

type	dbadata
	base (abstract) type for data Continua...

interface	dbadata_display
	print a summary of object contents Continua...

interface	dbadata_set
	== operator Continua...

type	dbadataattr
	== operator Continua...

type	dbadataattrv
	vector of dbadataattr (more data plus attributes) Continua...

interface	dbadatab
	byte version for dbadata Continua...

interface	dbadatac
	character version for dbadata Continua...

interface	dbadatad
	doubleprecision version for dbadata Continua...

interface	dbadatai
	integer version for dbadata Continua...

interface	dbadatar
	real version for dbadata Continua...

interface	dbadatetime
	datetime metadata Continua...

type	dbadc
	container for dbadata (used for promiscuous vector of data) Continua...

type	dbadcv
	vector of container of dbadata Continua...

interface	dbafilter
	filter to apply before ingest data Continua...

interface	dbalevel
	level metadata Continua...

type	dbametaanddata
	one metadata with more data plus attributes Continua...

type	dbametaanddatab
	metadata and byte data Continua...

type	dbametaanddatablist
	metadata and byte data double linked list Continua...

type	dbametaanddatac
	metadata and character data Continua...

type	dbametaanddataclist
	metadata and character data double linked list Continua...

type	dbametaanddatad
	metadata and doubleprecision data Continua...

type	dbametaanddatadlist
	metadata and diubleprecision data double linked list Continua...

type	dbametaanddatai
	metadata and integer data Continua...

type	dbametaanddatailist
	metadata and integer data double linked list Continua...

type	dbametaanddatalist
	double linked list of dbametaanddata Continua...

type	dbametaanddatar
	metadata and real data Continua...

type	dbametaanddatarlist
	metadata and real data double linked list Continua...

type	dbametaanddatav
	one metadata plus vector of container of dbadata Continua...

interface	dbametadata
	summ of all metadata pieces Continua...

interface	dbanetwork
	network metadata Continua...

interface	dbasession
	manage session handle Continua...

interface	dbatimerange
	timerange metadata Continua...
Membri privati
subroutine	displaydbametaanddata (this)
	print a summary of object contents Continua...

type(dbametaanddata) function	currentdbametaanddata (this)
	Get dbametaanddata pointed by iterator. Continua...

elemental logical function	dbadata_equal (this, that)
	equal operator for dbadata Continua...

subroutine	dbadata_geti (data, value)
	return integer value Continua...

logical function	dbadata_c_e_i (data)
	test missing value Continua...

subroutine	dbadata_getr (data, value)
	return real value Continua...

logical function	dbadata_c_e_r (data)
	test missing value Continua...

subroutine	dbadata_getd (data, value)
	return double precision value Continua...

logical function	dbadata_c_e_d (data)
	test missing value Continua...

subroutine	dbadata_getb (data, value)
	return byte value Continua...

logical function	dbadata_c_e_b (data)
	test missing value Continua...

subroutine	dbadata_getc (data, value)
	return character value Continua...

logical function	dbadata_c_e_c (data)
	test missing value Continua...

logical function	dbadata_c_e (data)
	test missing value Continua...

subroutine	dbalevel_display (level)
	print a summary of object content Continua...

type(dbalevel) function	dbalevel_init (level1, l1, level2, l2)
	Constructor Without parameter it is initialized to missing. Continua...

subroutine	dbalevel_set (level, session)
	set parameters in dballe API Continua...

subroutine	dbalevel_enq (level, session)
	query parameters from dballe API Continua...

type(dbalevel) function	dbalevel_contextana ()
	set dballe station data context for level (in object, not dballe session) Continua...

subroutine	dbaana_display (ana)
	print a summary of object content Continua...

type(dbacoord) function	dbacoord_init (lon, lat, ilon, ilat)
	Constructor Without parameter it is initialized to missing. Continua...

subroutine	dbacoord_display (coord)
	print a summary of object content Continua...

type(dbaana) function	dbaana_init (coord, ident, lon, lat, ilon, ilat)
	Constructor Without parameter it is initialized to missing. Continua...

subroutine	dbaana_set (ana, session)
	set parameters in dballe API Continua...

subroutine	dbaana_enq (ana, session)
	query parameters from dballe API Continua...

subroutine	dbaana_extrude (ana, session)
	put data on DSN Continua...

subroutine	displaydbaana (this)
	print a summary of object content Continua...

type(dbaana) function	currentdbaana (this)
	get dbaana pointed by iterator Continua...

subroutine	dbadc_set (dc, session)
	set parameters in dballe API Continua...

subroutine	dbadc_display (dc)
	print a summary of object content Continua...

subroutine	dbadcv_set (dcv, session)
	set parameters in dballe API Continua...

subroutine	dbadcv_extrude (dcv, session, noattr, filter, template)
	put data on DSN Continua...

subroutine	dbadc_extrude (data, session, noattr, filter, attronly, template)
	put data on DSN Continua...

subroutine	dbadcv_display (dcv)
	print a summary of object content Continua...

subroutine	dbasession_unsetb (session)
	dballe unsetb Continua...

subroutine	dbasession_close_message (session, template)
	dballe close_message Continua...

subroutine	dbasession_messages_open_input (session, filename, mode, format, simplified)
	dballe messages_open_input Continua...

subroutine	dbasession_messages_open_output (session, filename, mode, format)
	dballe messages_open_output Continua...

logical function	dbasession_messages_read_next (session)
	dballe messages_read_next Continua...

subroutine	dbasession_messages_write_next (session, template)
	dballe messages_write_next Continua...

subroutine	dbasession_dissolve_metadata (session, metadata)
	remove data from DSN Continua...

subroutine	dbasession_dissolveattr_metadata (session, metadata)
	remove attributes from DSN Continua...

subroutine	dbadataattr_extrude (data, session, noattr, filter, attronly, template)
	put data on DSN Continua...

subroutine	dbadataattr_display (dc)
	print a summary of object content Continua...

subroutine	dbadataattrv_extrude (dataattr, session, noattr, filter, attronly, template)
	put data on DSN Continua...

subroutine	dbadataattrv_display (dataattr)
	print a summary of object content Continua...

subroutine	dbadatai_geti (data, value)
	return integer value Continua...

subroutine	dbadatar_getr (data, value)
	return real value Continua...

subroutine	dbadatad_getd (data, value)
	return double precision value Continua...

subroutine	dbadatab_getb (data, value)
	return byte value Continua...

subroutine	dbadatac_getc (data, value)
	return character value Continua...

type(dbadatai) elemental function	dbadatai_init (btable, value)
	Constructor Without parameter it is initialized to missing. Continua...

type(dbadatar) elemental function	dbadatar_init (btable, value)
	Constructor Without parameter it is initialized to missing. Continua...

type(dbadatad) elemental function	dbadatad_init (btable, value)
	Constructor Without parameter it is initialized to missing. Continua...

type(dbadatab) elemental function	dbadatab_init (btable, value)
	Constructor Without parameter it is initialized to missing. Continua...

type(dbadatac) elemental function	dbadatac_init (btable, value)
	Constructor Without parameter it is initialized to missing. Continua...

subroutine	dbadatai_set (data, session)
	set parameters in dballe API Continua...

subroutine	dbadatai_display (data)
	print a summary of object content Continua...

subroutine	dbadatar_set (data, session)
	set parameters in dballe API Continua...

subroutine	dbadatar_display (data)
	print a summary of object content Continua...

subroutine	dbadatad_set (data, session)
	set parameters in dballe API Continua...

subroutine	dbadatad_display (data)
	print a summary of object content Continua...

subroutine	dbadatab_set (data, session)
	set parameters in dballe API Continua...

subroutine	dbadatab_display (data)
	print a summary of object content Continua...

subroutine	dbadatac_set (data, session)
	set parameters in dballe API Continua...

subroutine	dbadatac_display (data)
	print a summary of object content Continua...

subroutine	dbatimerange_display (timerange)
	print a summary of object content Continua...

subroutine	dbatimerange_set (timerange, session)
	set parameters in dballe API Continua...

subroutine	dbatimerange_enq (timerange, session)
	query parameters from dballe API Continua...

type(dbatimerange) function	dbatimerange_init (timerange, p1, p2)
	Constructor Without parameter it is initialized to missing. Continua...

type(dbatimerange) function	dbatimerange_contextana ()
	set dballe station data context for timerange (in object, not dballe session) Continua...

subroutine	dbanetwork_display (network)
	print a summary of object content Continua...

subroutine	dbanetwork_set (network, session)
	set parameters in dballe API Continua...

subroutine	dbanetwork_enq (network, session)
	query parameters from dballe API Continua...

type(dbanetwork) function	dbanetwork_init (name)
	Constructor Without parameter it is initialized to missing. Continua...

subroutine	dbadatetime_display (datetime)
	print a summary of object content Continua...

subroutine	dbadatetime_set (datetime, session)
	set parameters in dballe API Continua...

subroutine	dbadatetime_enq (datetime, session)
	query parameters from dballe API Continua...

type(dbadatetime) function	dbadatetime_init (dt)
	Constructor Without parameter it is initialized to missing. Continua...

type(dbadatetime) function	dbadatetime_contextana ()
	set dballe station data context for date and time (in object, not dballe session) Continua...

type(dbametadata) function	dbametadata_init (level, timerange, ana, network, datetime)
	Constructor Without parameter it is initialized to missing. Continua...

subroutine	dbametadata_display (metadata)
	print a summary of object content Continua...

subroutine	dbametadata_set (metadata, session)
	set parameters in dballe API Continua...

subroutine	dbametadata_enq (metadata, session)
	query parameters from dballe API Continua...

logical function	dbafilter_equal_dbametadata (this, that)
	equal operator for dbafilter and dbametadata Continua...

elemental logical function	dbadcv_equal_dbadata (this, that)
	equal operator for dbadcv and dbadata if dbadcvdcv is not allocated result is .true. Continua...

elemental logical function	dbametadata_equal (this, that)
	equal operator for dbametadata Continua...

type(dbafilter) function	dbafilter_init (filter, ana, var, datetime, level, timerange, network, datetimemin, datetimemax, coordmin, coordmax, limit, ana_filter, data_filter, attr_filter, varlist, starvarlist, anavarlist, anastarvarlist, priority, priomin, priomax, contextana, vars, starvars, anavars, anastarvars, query, anaonly, dataonly)
	Constructor This is the filter we can use to limit results fron the ingest operation Without parameter it is initialized to missing. Continua...

subroutine	dbafilter_display (filter)
	print a summary of object content Continua...

subroutine	dbafilter_set (filter, session)
	set parameters in dballe API Continua...

type(dbametadata) function	dbametadata_contextana (metadata)
	set dballe station data context for all metadata (in object, not dballe session) Continua...

subroutine	dbametaanddata_display (metaanddata)
	print a summary of object content Continua...

subroutine	dbametaanddata_extrude (metaanddata, session, noattr, filter, attronly, template)
	put data on DSN Continua...

subroutine	dbametaanddatav_display (metaanddatav)
	print a summary of object content Continua...

subroutine	dbametaanddatav_extrude (metaanddatav, session, noattr, filter, template)
	put data on DSN Continua...

subroutine	dbametaanddatal_extrude (metaanddatal, session, noattr, filter, attronly, template)
	put data on DSN; extrude metaanddata list Continua...

subroutine	displaydbametaanddatai (this)
	print a summary of object content Continua...

type(dbametaanddatai) function	currentdbametaanddatai (this)
	Get dbametaanddatai pointed by iterator. Continua...

subroutine	dbasession_ingest_metaanddatail (session, metaanddatal, filter)
	get data from DSN Continua...

type(dbametaanddatai) function, dimension(:), allocatable	toarray_dbametaanddatai (this)
	return an array of dbametaanddatai Continua...

subroutine	displaydbametaanddatar (this)
	print a summary of object content Continua...

type(dbametaanddatar) function	currentdbametaanddatar (this)
	Get dbametaanddatar pointed by iterator. Continua...

subroutine	dbasession_ingest_metaanddatarl (session, metaanddatal, filter)
	get data from DSN Continua...

type(dbametaanddatar) function, dimension(:), allocatable	toarray_dbametaanddatar (this)
	return an array of dbametaanddatar Continua...

subroutine	displaydbametaanddatad (this)
	print a summary of object content Continua...

type(dbametaanddatad) function	currentdbametaanddatad (this)
	Get dbametaanddatad pointed by iterator. Continua...

subroutine	dbasession_ingest_metaanddatadl (session, metaanddatal, filter)
	get data from DSN Continua...

type(dbametaanddatad) function, dimension(:), allocatable	toarray_dbametaanddatad (this)
	return an array of dbametaanddatad Continua...

subroutine	displaydbametaanddatab (this)
	print a summary of object content Continua...

type(dbametaanddatab) function	currentdbametaanddatab (this)
	Get dbametaanddatab pointed by iterator. Continua...

subroutine	dbasession_ingest_metaanddatabl (session, metaanddatal, filter)
	get data from DSN Continua...

type(dbametaanddatab) function, dimension(:), allocatable	toarray_dbametaanddatab (this)
	return an array of dbametaanddatab Continua...

subroutine	displaydbametaanddatac (this)
	print a summary of object content Continua...

type(dbametaanddatac) function	currentdbametaanddatac (this)
	Get dbametaanddatac pointed by iterator. Continua...

subroutine	dbasession_ingest_metaanddatacl (session, metaanddatal, filter)
	get data from DSN Continua...

type(dbametaanddatac) function, dimension(:), allocatable	toarray_dbametaanddatac (this)
	return an array of dbametaanddatac Continua...

subroutine	dbametaanddatai_display (data)
	print a summary of object content Continua...

subroutine	dbametaanddatab_display (data)
	print a summary of object content Continua...

subroutine	dbametaanddatad_display (data)
	print a summary of object content Continua...

subroutine	dbametaanddatar_display (data)
	print a summary of object content Continua...

subroutine	dbametaanddatac_display (data)
	print a summary of object content Continua...

subroutine	dbametaanddatai_extrude (metaanddatai, session)
	put data on DSN Continua...

subroutine	dbametaanddatab_extrude (metaanddatab, session)
	put data on DSN Continua...

subroutine	dbametaanddatad_extrude (metaanddatad, session)
	put data on DSN Continua...

subroutine	dbametaanddatar_extrude (metaanddatar, session)
	put data on DSN Continua...

subroutine	dbametaanddatac_extrude (metaanddatac, session)
	put data on DSN Continua...

subroutine	dbasession_ingest_ana (session, ana)
	get data from DSN Continua...

subroutine	dbasession_ingest_anav (session, anav)
	get data from DSN Continua...

subroutine	dbasession_ingest_anal (session, anal)
	get data from DSN Continua...

subroutine	dbasession_ingest_metaanddata (session, metaanddata, noattr, filter)
	get data from DSN Continua...

subroutine	dbasession_ingest_metaanddatav (session, metaanddatav, noattr, filter)
	get data from DSN Continua...

subroutine	dbasession_ingest_metaanddatal (session, metaanddatal, noattr, filter)
	Get data fron DSN; ingest metaanddata list. Continua...

subroutine	dbasession_ingest_metaanddatai (session, metaanddata)
	Get data from DSN. Continua...

subroutine	dbasession_ingest_metaanddataiv (session, metaanddatav)
	Get data from DSN. Continua...

subroutine	dbasession_ingest_metaanddatab (session, metaanddata)
	Get data from DSN. Continua...

subroutine	dbasession_ingest_metaanddatabv (session, metaanddatav)
	Get data from DSN. Continua...

subroutine	dbasession_ingest_metaanddatad (session, metaanddata)
	get data from DSN Continua...

subroutine	dbasession_ingest_metaanddatadv (session, metaanddatav)
	Get data from DSN. Continua...

subroutine	dbasession_ingest_metaanddatar (session, metaanddata)
	get data from DSN Continua...

subroutine	dbasession_ingest_metaanddatarv (session, metaanddatav)
	Get data from DSN. Continua...

subroutine	dbasession_ingest_metaanddatac (session, metaanddata)
	get data from DSN Continua...

subroutine	dbasession_ingest_metaanddatacv (session, metaanddatav)
	Get data from DSN. Continua...

type(dbaconnection) function	dbaconnection_init (dsn, user, password, categoryappend, idbhandle)
	Constructor Without parameter it is initialized to missing. Continua...

subroutine	dbaconnection_delete (handle)
	remove dballe connection Continua...

recursive type(dbasession) function	dbasession_init (connection, anaflag, dataflag, attrflag, filename, mode, format, template, write, wipe, repinfo, simplified, memdb, loadfile, categoryappend)
	Constructor Without parameter it is initialized to missing. Continua...

subroutine	dbasession_unsetall (session)
	clean all setting on dballe API Continua...

subroutine	dbasession_remove_all (session)
	dballe remove_all Continua...

subroutine	dbasession_prendilo (session)
	dballe prendilo Continua...

subroutine	dbasession_var_related (session, btable)
	dballe var_related Continua...

subroutine	dbasession_setcontextana (session)
	set parameters in dballe API needed for station data Continua...

subroutine	dbasession_dimenticami (session)
	dballe dimenticami Continua...

subroutine	dbasession_critica (session)
	dballe critica Continua...

subroutine	dbasession_scusa (session)
	dballe scusa Continua...

subroutine	dbasession_set (session, metadata, datav, data, datetime, ana, network, level, timerange, filter)
	set parameters in dballe API Continua...

subroutine	dbasession_delete (session)
	clear a dballe session Continua...

subroutine	dbasession_filerewind (session)
	rewind a file associated to a session (needed to restart reading) Continua...