Constructor Without parameter it is initialized to missing.
1726 subroutine dbanetwork_enq(network,session)
1727 class(dbanetwork),
intent(out) :: network
1728 type(dbasession),
intent(in) :: session
1731 ier = idba_enq(session%sehandle,
"rep_memo", network%name)
1732 ier = idba_enq(session%sehandle,
"priority", network%priority)
1734 end subroutine dbanetwork_enq
1738 type(dbanetwork) function dbanetwork_init(name)
1739 CHARACTER(len=*),
INTENT(in),
OPTIONAL :: name
1741 call init (dbanetwork_init%vol7d_network,name)