libsim Versione 7.2.1

◆ dbadata_getd()

subroutine dbadata_getd ( class(dbadata), intent(in) data,
doubleprecision, intent(out) value )
private

return double precision value

Parametri
[in]datadata object to be decoded
[out]valuereturned 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)

Generated with Doxygen.