libsim Versione 7.2.0
|
◆ dbasession_messages_open_input()
dballe messages_open_input
Definizione alla linea 1327 del file dballe_class.F03. 1328 endif
1329 endif
1330else
1331 call session%prendilo()
1332 ierr=idba_unsetb(session%sehandle)
1333end if
1334
1335if (optio_log(noattr)) return
1336
1337!write attributes in dsn
1338if (allocated(data%attrv%dcv)) then
1339 if (size(data%attrv%dcv) > 0 )then
1340 critica = .false.
1341 do i = 1, size(data%attrv%dcv)
1342 if (present(filter))then
1343 if (filter%contextana) then
1344 if (.not. filter%anastarvars == data%attrv%dcv(i)%dat) cycle
1345 else
1346 if (.not. filter%starvars == data%attrv%dcv(i)%dat) cycle
1347 end if
1348 endif
|