Subroutine set_c

subroutine set_c

        ! Calls
    call Kparse_Word
    call RITE
    call SKIM_INIT
    call SS_ZERO
    call kerror

        ! Variables
    character (len=80) :: Argument
    character (len=80) :: Qualifier
    character (len=16) :: token
    character (len=16) :: keyw
    character (len=16) :: setting
    integer (kind=4) :: ISS
    integer (kind=4) :: i
    integer (kind=4) :: type
    integer (kind=4) :: ndata
    integer (kind=4), dimension (5) :: idat1
    integer (kind=4), dimension (5) :: idat2
    integer (kind=4) :: lensig
    logical :: BOOLY
    logical :: Q_TRACK
    logical :: KEYWORD_FOUND
    logical :: TRACK
    logical :: Q_CUTS
    logical :: streq

end subroutine set_c

Description of Variables

character (len=80) :: Argument

character (len=80) :: Qualifier

character (len=16) :: token

character (len=16) :: keyw

character (len=16) :: setting

integer (kind=4) :: ISS

integer (kind=4) :: i

integer (kind=4) :: type

integer (kind=4) :: ndata

integer (kind=4), dimension (5) :: idat1

integer (kind=4), dimension (5) :: idat2

integer (kind=4) :: lensig

logical :: BOOLY

logical :: Q_TRACK

logical :: KEYWORD_FOUND

logical :: TRACK

logical :: Q_CUTS

logical :: streq