libsim Versione 7.2.6
|
◆ dbaconnection_init()
Constructor Without parameter it is initialized to missing.
Definizione alla linea 3943 del file dballe_class.F03. 3944 ldataflag = "write"
3945 else
3946 ldataflag = "read"
3947 end if
3948end if
3949
3950call optio(attrflag,lattrflag)
3951if (.not. c_e(lattrflag))then
3952 if (lwrite) then
3953 lattrflag = "write"
3954 else
3955 lattrflag = "read"
3956 end if
3957end if
3958
3959
3960!!$print*,"---------------- call session_init --------------------------------"
3961!!$print *,"session_init,lformat,ltemplate,lmemdb,lfile,lloadfile,lanaflag,ldataflag,lattrflag"
3962!!$print *,"session_init",lformat,ltemplate,lmemdb,lfile,lloadfile,lanaflag,ldataflag,lattrflag
3963!!$print*,"------------------------------------------------"
3964
3965if (lfile) then
3966
3967 if (present(anaflag).or.present(dataflag).or.present( attrflag)) then
3968 call l4f_category_log(dbasession_init%category,l4f_error,"option anaflag, dataflag, attrflag defined with filename access")
3969 CALL raise_error()
3970 end if
3971
3972else
3973
3974 if(.not. present(connection)) then
|