Constructor Without parameter it is initialized to missing.
1726 ier = idba_set(session%sehandle,
"rep_memo", network%name)
1728 end subroutine dbanetwork_set
1731 subroutine dbanetwork_enq(network,session)
1732 class(dbanetwork),
intent(out) :: network
1733 type(dbasession),
intent(in) :: session
1736 ier = idba_enq(session%sehandle,
"rep_memo", network%name)
1737 ier = idba_enq(session%sehandle,
"priority", network%priority)
1739 end subroutine dbanetwork_enq