SUBROUTINE SETUP
C     *************************
      IMPLICIT REAL*8(A-H,O-Z)
	include 'input.inc'
	character*59 name
      ISOUT=6
      IIN=31
	call strget(' Input file ',name)
	open(unit=iin,file=name,readonly,type='OLD')
c
	call strip_dirname(name,istart,iend,leftbrak,ightbrak)
c
	filename=name(istart:iend)
      IOUT=34
	type 1,name(istart:iend)//'_out'
1	format(1x,' Open file ',a,' to write general output.')
	open(unit=iout,file=name(istart:iend)//'_out',type='new')
      ISO=0
      RETURN
      END