openbt.F90

Go to the documentation of this file.

 
 
recursive subroutine openbt(lundx,mtyp)
 
  use modv_vars, only: im8b
 
  implicit none
 
  integer, intent(in) :: mtyp
  integer, intent(out) :: lundx
  integer iprt, my_mtyp
 
  common /quiet/ iprt
 
  character*128 errstr
 
  ! Check for I8 integers
  if(im8b) then
    im8b=.false.
    call x84(mtyp,my_mtyp,1)
    call openbt(lundx,my_mtyp)
    call x48(lundx,lundx,1)
    im8b=.true.
    return
  endif
 
  if(iprt>=0) then
    call errwrt('+++++++++++++++++++++WARNING+++++++++++++++++++++++')
    errstr = 'BUFRLIB: OPENBT - THIS IS A DUMMY BUFRLIB ROUTINE'// &
      ' CALLED BY CKTABA OR APPL. PGM; OPENBT SHOULD BE INCL. IN-LINE IN APPL. PGM'
    call errwrt(errstr)
    call errwrt('+++++++++++++++++++++WARNING+++++++++++++++++++++++')
    call errwrt(' ')
  endif
 
  lundx = 0
 
  return
end subroutine openbt