Subroutine GETLR
subroutine GETLR
! Calls
call DDCLOSE
call DDGETEV
call KMSkim_Begin
call RITE
call SKIM_OPEN
call kerror
call my_new_file
! Variables
character (len=4) :: lrid_t_nam2
logical :: ms_error
integer (kind=4) :: blread
integer (kind=4) :: blocat
integer (kind=4) :: blopen
integer (kind=4) :: blclos
integer (kind=4) :: berlev
integer (kind=4) :: bkeep
integer (kind=4) :: blist
integer (kind=4) :: bos77
integer (kind=4) :: bgarb
integer (kind=4) :: ist
integer (kind=4) :: iw
integer (kind=4) :: itemp
integer (kind=4) :: inchan
integer (kind=4) :: istatus
integer (kind=4) :: lrmax
integer (kind=4) :: ind
integer (kind=4) :: indat
integer (kind=4) :: lastrun
integer (kind=4) :: icreator_id
integer (kind=4) :: indat2
character (len=4) :: creator_id
character (len=4), dimension (3) :: cword
integer (kind=4), dimension (3) :: iword
character (len=80) :: message
character (len=400) :: cblist
logical :: first
integer (kind=2), dimension (2) :: ltmp
integer (kind=4) :: nev_since_bgarb
integer (kind=4) :: MAXEV_SINCE_BGARB
integer (kind=4) :: II
integer (kind=4) :: nrun_slow
integer (kind=4) :: nevtii
integer (kind=4) :: BSMEMB
integer (kind=4) :: NMEMBER
end subroutine GETLR
Description of Variables
lrid_t_nam2
character (len=4) :: lrid_t_nam2
ms_error
logical :: ms_error
blread
integer (kind=4) :: blread
blocat
integer (kind=4) :: blocat
blopen
integer (kind=4) :: blopen
blclos
integer (kind=4) :: blclos
berlev
integer (kind=4) :: berlev
bkeep
integer (kind=4) :: bkeep
blist
integer (kind=4) :: blist
bos77
integer (kind=4) :: bos77
bgarb
integer (kind=4) :: bgarb
ist
integer (kind=4) :: ist
iw
integer (kind=4) :: iw
itemp
integer (kind=4) :: itemp
inchan
integer (kind=4) :: inchan
istatus
integer (kind=4) :: istatus
lrmax
integer (kind=4) :: lrmax
ind
integer (kind=4) :: ind
indat
integer (kind=4) :: indat
lastrun
integer (kind=4) :: lastrun
icreator_id
integer (kind=4) :: icreator_id
indat2
integer (kind=4) :: indat2
creator_id
character (len=4) :: creator_id
cword
character (len=4), dimension (3) :: cword
iword
integer (kind=4), dimension (3) :: iword
message
character (len=80) :: message
cblist
character (len=400) :: cblist
first
logical :: first
ltmp
integer (kind=2), dimension (2) :: ltmp
nev_since_bgarb
integer (kind=4) :: nev_since_bgarb
MAXEV_SINCE_BGARB
integer (kind=4) :: MAXEV_SINCE_BGARB
II
integer (kind=4) :: II
nrun_slow
integer (kind=4) :: nrun_slow
nevtii
integer (kind=4) :: nevtii
BSMEMB
integer (kind=4) :: BSMEMB
NMEMBER
integer (kind=4) :: NMEMBER