libsim Versione 7.2.1

◆ dbametaanddatad_extrude()

subroutine dbametaanddatad_extrude ( class(dbametaanddatad), intent(in) metaanddatad,
type(dbasession), intent(in) session )
private

put data on DSN

Parametri
[in]sessiondballe session

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 )

Generated with Doxygen.