Subroutine phinterpret 
subroutine phinterpret
        ! Uses
    use namelist_mod
        ! Calls
    call DUMP_C
    call Rite
    call namelist_c
    call uhelp
        ! Variables
    character (len=*) :: command
    character (len=20) :: token
    character (len=20) :: Qualifier
    character (len=80) :: Argument
    character (len=80) :: message
    logical :: last_command
    logical :: streq
end subroutine phinterpret
 Description of Variables 
command
character (len=*) :: command
token
character (len=20) :: token
Qualifier
character (len=20) :: Qualifier
Argument
character (len=80) :: Argument
message
character (len=80) :: message
last_command
logical :: last_command
streq
logical :: streq