Subroutine ASSIGN_MTOUT

subroutine ASSIGN_MTOUT

        ! Calls
    call SKIM_FINISH
    call getenv

        ! Variables
    integer :: lensig
    character :: BLANK
    character (len=8) :: LNAME
    character (len=80) :: MESSAGE
    character (len=80) :: MTOUT_OLD
    integer (kind=2) :: LTOUT_NEW
    integer (kind=2), dimension (4) :: ITCODE
    integer (kind=4) :: SIZE
    integer (kind=4) :: DUMMY
    integer (kind=4) :: magta
    integer (kind=4) :: magtass1
    integer (kind=4) :: ierr
    logical :: EXIST_FLAG
    logical :: WRITE_FLAG

end subroutine ASSIGN_MTOUT

Description of Variables

lensig

integer :: lensig

BLANK

character :: BLANK

LNAME

character (len=8) :: LNAME

MESSAGE

character (len=80) :: MESSAGE

MTOUT_OLD

character (len=80) :: MTOUT_OLD

LTOUT_NEW

integer (kind=2) :: LTOUT_NEW

ITCODE

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

SIZE

integer (kind=4) :: SIZE

DUMMY

integer (kind=4) :: DUMMY

magta

integer (kind=4) :: magta

magtass1

integer (kind=4) :: magtass1

ierr

integer (kind=4) :: ierr

EXIST_FLAG

logical :: EXIST_FLAG

WRITE_FLAG

logical :: WRITE_FLAG