libsim  Versione6.3.0

◆ 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" or "CREX". (default="BUFR")
[in]simplifiedrappresentation when interpret message (simplified/precise)

Definizione alla linea 1358 del file dballe_class.F03.

1358  call data%attrv%dcv(i)%dat%dbaset(session)
1359  critica=.true.
1360  else if(optio_log(attronly)) then
1361  !ierr=idba_seti(session%sehandle, "*context_id", id)
1362  !call session%var_related(data%dbadc%dat%btable) ! If I have made a prendilo I do not need this
1363  !call data%attrv%dcv(i)%dat%dbaset(session)
1364  ierr = idba_set(session%sehandle,"*var",data%attrv%dcv(i)%dat%btable)
1365  !print *,"scusa attributi:"
1366  !call data%attrv%dcv(i)%dat%display()
1367  call session%scusa()
1368  endif
1369  end do
1370  if (critica) then
1371  !ierr=idba_seti(session%sehandle, "*context_id", id)
1372  !call session%var_related(data%dbadc%dat%btable) ! If I have made a prendilo I do not need this
1373  call session%critica()
1374  end if
1375 
1376  end if
1377 end if
1378 

Generated with Doxygen.