Subroutine REWINDC

subroutine REWINDC

        ! Calls
    call RITE
    call kerror

        ! Variables
    character (len=80) :: message
    character (len=80) :: Qualifier
    logical (kind=4) :: streq
    integer (kind=4) :: ierr
    integer (kind=4) :: magta
    integer (kind=2), dimension (4) :: icode

end subroutine REWINDC

Description of Variables

message

character (len=80) :: message

Qualifier

character (len=80) :: Qualifier

streq

logical (kind=4) :: streq

ierr

integer (kind=4) :: ierr

magta

integer (kind=4) :: magta

icode

integer (kind=2), dimension (4) :: icode