libsim Versione 7.2.6
|
◆ dbametaanddatad_extrude()
put data on DSN
Definizione alla linea 3259 del file dballe_class.F03. 3260 if (lvars) then
3261
3262 ! create an empty vector for data
3263 allocate (metaanddata%dataattrv%dataattr(size(vars%dcv)))
3264 do i = 1, size(vars%dcv)
3265 allocate (metaanddata%dataattrv%dataattr(i)%dat,source=vars%dcv(i)%dat)
3266 end do
3267
3268 ! load metadata
3269 call metaanddata%metadata%dbaenq(session)
3270 ! load curret metadata
3271 call metadata%dbaenq(session)
3272
3273 ! if current metadata is equal to metadata
3274 do while ( metaanddata%metadata == metadata )
|