libsim Versione 7.2.4
|
◆ dbadata_getd()
return double precision value
Definizione alla linea 911 del file dballe_class.F03. 912class(dbaana), intent(in) :: ana
913type(dbasession), intent(in) :: session
914integer :: ier
915
916!if (c_e(session%sehandle)) then
917ier = idba_set(session%sehandle,"lat",getilat(ana%vol7d_ana%coord))
918ier = idba_set(session%sehandle,"lon",getilon(ana%vol7d_ana%coord))
919if (c_e(ana%vol7d_ana%ident)) then
920 ier = idba_set(session%sehandle,"ident",ana%vol7d_ana%ident)
|