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