libsim  Versione 7.2.4

◆ dbasession_messages_open_input()

subroutine dballe_class::dbasession_messages_open_input ( class(dbasession), intent(in)  session,
character (len=*), intent(in)  filename,
character (len=*), intent(in), optional  mode,
character (len=*), intent(in), optional  format,
logical, intent(in), optional  simplified 
)
private

dballe messages_open_input

Parametri
[in]filenamefile name to open
[in]mode"r"/"w"/"a" the open mode ("r" for read, "w" for write or create, "a" for append)
[in]formatthe file format. It can be "BUFR", "CREX" or "JSON" (default="BUFR")
[in]simplifiedrappresentation when interpret message (simplified/precise)

Definizione alla linea 1337 del file dballe_class.F03.

1338 if (allocated(data%attrv%dcv)) then
1339  if (size(data%attrv%dcv) > 0 )then
1340  critica = .false.
1341  do i = 1, size(data%attrv%dcv)
1342  if (present(filter))then
1343  if (filter%contextana) then
1344  if (.not. filter%anastarvars == data%attrv%dcv(i)%dat) cycle
1345  else
1346  if (.not. filter%starvars == data%attrv%dcv(i)%dat) cycle
1347  end if
1348  endif
1349 
1350  if (data%attrv%dcv(i)%dat%c_e()) then
1351  !print *,"extrude attributi:"
1352  !call data%attrv%dcv(i)%dat%display()
1353  call data%attrv%dcv(i)%dat%dbaset(session)
1354  critica=.true.
1355  else if(optio_log(attronly)) then
1356  !ierr=idba_seti(session%sehandle, "*context_id", id)
1357  !call session%var_related(data%dbadc%dat%btable) ! If I have made a prendilo I do not need this
1358  !call data%attrv%dcv(i)%dat%dbaset(session)

Generated with Doxygen.