Subroutine RUNC 
subroutine RUNC
        ! Calls
    call Kparse_Word
    call SETC
    call kerror
        ! Variables
    character (len=80) :: token
    character (len=80) :: Qualifier
    character (len=80) :: Argument
    integer (kind=4) :: i
    integer (kind=4) :: k
    integer (kind=4) :: type
    integer (kind=4) :: ndata
    integer (kind=4) :: irun
    integer (kind=4), dimension (20) :: irun1
    integer (kind=4), dimension (20) :: irun2
    logical (kind=4) :: streq
    real :: VALUE
end subroutine RUNC
 Description of Variables 
token
character (len=80) :: token
Qualifier
character (len=80) :: Qualifier
Argument
character (len=80) :: Argument
i
integer (kind=4) :: i
k
integer (kind=4) :: k
type
integer (kind=4) :: type
ndata
integer (kind=4) :: ndata
irun
integer (kind=4) :: irun
irun1
integer (kind=4), dimension (20) :: irun1
irun2
integer (kind=4), dimension (20) :: irun2
streq
logical (kind=4) :: streq
VALUE
real :: VALUE