NCEPLIBS-bufr  12.0.0
fortran_close.F90
Go to the documentation of this file.
1 
5 
12 recursive subroutine fortran_close(lunit, iret)
13 
14  use modv_im8b
15 
16  implicit none
17  integer, intent(in) :: lunit
18  integer, intent(out) :: iret
19  integer my_lunit
20 
21 ! check for i8 integers
22 
23  if(im8b) then
24  im8b=.false.
25 
26  call x84(lunit,my_lunit,1)
27  call fortran_close(my_lunit,iret)
28  call x48(iret,iret,1)
29 
30  im8b=.true.
31  return
32  endif
33 
34  close(lunit, iostat=iret)
35  return
36 end
fortran_close
recursive subroutine fortran_close(lunit, iret)
Close a Fortran file on the local system.
Definition: fortran_close.F90:13
modv_im8b
This module declares and initializes the IM8B variable.
Definition: modules_vars.F90:30
modv_im8b::im8b
logical, public im8b
Status indicator to keep track of whether all future calls to BUFRLIB subroutines and functions from ...
Definition: modules_vars.F90:39
x48
subroutine x48(IIN4, IOUT8, NVAL)
Encode one or more 4-byte integer values as 8-byte integer values.
Definition: x48.F:19
x84
subroutine x84(IIN8, IOUT4, NVAL)
Encode one or more 8-byte integer values as 4-byte integer values.
Definition: x84.F:19