Constructor Without parameter it is initialized to missing.
3986 if (
present(anaflag).or.
present(dataflag).or.
present( attrflag))
then 3987 call l4f_category_log(dbasession_init%category,l4f_error,
"option anaflag, dataflag, attrflag defined with filename access")
3993 if(.not.
present(connection))
then 3994 call l4f_category_log(dbasession_init%category,l4f_error,
"connection not present accessing DBA")
3998 if (
present(mode).or.
present(format).or.
present(template).or.
present(simplified))
then 3999 call l4f_category_log(dbasession_init%category,l4f_error,&
4000 "option mode or format or template or simplified defined without filename")
4008 if (
present(filename))
then 4010 if (.not.
present(connection))
then 4012 dbasession_init%memconnection=dbaconnection(dsn=
"mem:")
4014 dbasession_init=dbasession(dbasession_init%memconnection,&
4015 write=.true.,wipe=lwrite,repinfo=lrepinfo,&
4016 memdb=lmemdb,loadfile=lloadfile)
4019 dbasession_init%memconnection=connection
4021 dbasession_init=dbasession(dbasession_init%memconnection,&
4022 write=.true.,wipe=lwrite,repinfo=lrepinfo,&