libsim Versione 7.1.11
|
◆ dbasession_ingest_metaanddatarv()
Get data from DSN.
Definizione alla linea 3885 del file dballe_class.F03. 3886if (present(filename)) then
3887
3888 lfile=.true.
3889
3890 IF (filename == '') THEN
3891! if stdio do not check existence, stdin always exist, stdout never exist
3892 exist = .NOT.lwrite
3893 ELSE
3894 INQUIRE(file=filename,exist=exist)
3895 ENDIF
3896
3897 if (lwrite)then
3898 if (lwipe.or..not.exist) then
3899 lmode="w"
3900 else
3901 lmode="a"
|