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