Subroutine SKIM_ROUTINES
subroutine SKIM_ROUTINES
! Calls
call ASSIGN_MTOUT
call RITE
! Variables
integer (kind=4) :: LENSIG
integer :: istat
integer :: BLOPEN
integer :: BLWRIT
integer :: BLCLOS
character (len=80) :: MESSAGE
character (len=80) :: MTOUT_OLD
logical (kind=4) :: SK_EOF
logical (kind=4) :: SK_DEOF
logical (kind=4) :: SKIMOPEN
logical (kind=4) :: SKIMEVEROPEN
logical (kind=4) :: SKIMWRITE
logical (kind=4) :: SKIMEVERWRITE
integer (kind=2), dimension (2) :: LTEMP
integer (kind=2), dimension (4) :: ICODE
integer (kind=4) :: ISTATUS
integer (kind=4) :: ILOUT
integer (kind=4) :: LRMAX
integer (kind=4) :: NV
integer (kind=4) :: LR
integer (kind=4) :: ierr
integer (kind=4) :: magta
end subroutine SKIM_ROUTINES
Description of Variables
LENSIG
integer (kind=4) :: LENSIG
istat
integer :: istat
BLOPEN
integer :: BLOPEN
BLWRIT
integer :: BLWRIT
BLCLOS
integer :: BLCLOS
MESSAGE
character (len=80) :: MESSAGE
MTOUT_OLD
character (len=80) :: MTOUT_OLD
SK_EOF
logical (kind=4) :: SK_EOF
SK_DEOF
logical (kind=4) :: SK_DEOF
SKIMOPEN
logical (kind=4) :: SKIMOPEN
SKIMEVEROPEN
logical (kind=4) :: SKIMEVEROPEN
SKIMWRITE
logical (kind=4) :: SKIMWRITE
SKIMEVERWRITE
logical (kind=4) :: SKIMEVERWRITE
LTEMP
integer (kind=2), dimension (2) :: LTEMP
ICODE
integer (kind=2), dimension (4) :: ICODE
ISTATUS
integer (kind=4) :: ISTATUS
ILOUT
integer (kind=4) :: ILOUT
LRMAX
integer (kind=4) :: LRMAX
NV
integer (kind=4) :: NV
LR
integer (kind=4) :: LR
ierr
integer (kind=4) :: ierr
magta
integer (kind=4) :: magta