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