libsim  Versione 7.2.6

◆ dbametadata_set()

subroutine dballe_class::dbametadata_set ( class(dbametadata), intent(in)  metadata,
type(dbasession), intent(in)  session 
)
private

set parameters in dballe API

Parametri
[in]sessiondballe session

Definizione alla linea 2073 del file dballe_class.F03.

2074 !!$ end if
2075 !!$
2076 !!$ if (allocated(filter%starvars%dcv)) then
2077 !!$ if (allocated(dbafilter_init%starvars%dcv)) deallocate(dbafilter_init%starvars%dcv)
2078 !!$ allocate(dbafilter_init%starvars%dcv(size(filter%starvars%dcv)))
2079 !!$ do i =1,size(filter%starvars%dcv)
2080 !!$ allocate(dbafilter_init%starvars%dcv(i)%dat,source=filter%starvars%dcv(i)%dat)
2081 !!$ end do
2082 !!$ end if
2083 !!$
2084 !!$ if (allocated(filter%anavars%dcv)) then
2085 !!$ if (allocated(dbafilter_init%anavars%dcv)) deallocate(dbafilter_init%anavars%dcv)
2086 !!$ allocate(dbafilter_init%anavars%dcv(size(filter%anavars%dcv)))
2087 !!$ do i =1,size(filter%anavars%dcv)
2088 !!$ call filter%anavars%dcv(i)%dat%display()
2089 !!$ allocate(dbafilter_init%anavars%dcv(i)%dat,source=filter%anavars%dcv(i)%dat)
2090 !!$ end do
2091 !!$ end if
2092 !!$
2093 !!$ if (allocated(filter%anastarvars%dcv)) then
2094 !!$ if (allocated(dbafilter_init%anastarvars%dcv)) deallocate(dbafilter_init%anastarvars%dcv)

Generated with Doxygen.