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