      subroutine setdflt
C...Translated by Pacific-Sierra Research VAST-90 2.06G2  11:02:43   6/14/01  
C...Switches: -p4 -yb
c--------------------------
c  set default values of variables
c----------------------------
C-----------------------------------------------
C   M o d u l e s 
C-----------------------------------------------
      use Vparam
      use Vsizes
      use Vceqdsk
      use Vcfdamp
      use Vchpcsd
      use Vcmnew
      use Vcraylh
      use Vcgraphs
      use Viogrl
      use Viorlh
      implicit none
C-----------------------------------------------
C   G l o b a l   P a r a m e t e r s
C-----------------------------------------------
C-----------------------------------------------
C   L o c a l   P a r a m e t e r s
C-----------------------------------------------
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      integer :: nspi0
C-----------------------------------------------
c
c  parameters
c  Nspect-->nspectm, Nion-->nions,  Nua-->nuam,  Nta-->ntam, Lrz-->lrza,
c  Nthp11-->nthp11a,  Npnt-->npnta,   Mpnt-->mpnta
c
c  Storage related to EQDSK:
c  Units used in the EQDSK are entirely MKSA.
c  Comeqdsk-->ceqdsk.i
 
c
c  Comfdamp
c
c
c
c   Comhpcsd
c
c********************************************
c  6/26/91,  Latest update: 06/02/00
c     Comnew
cNew common added for FWCD
c  Storage related to FWCD:
cSubroutines displh inital use Comnew1
 
 
c******      TKM   03/97, 09/99, 04/00, 06/00
c********************
 
c---------------------------
c   common block for Comraylh
c-------------------------
c
c
c$$$$$$$$     TKM    11/98
c*********    TKM   2/97, 6/99, 9/99
c*********    TKM   2/97
c*******   TK Mau   8/98
c*************************
c  SCC  3/7/95
 
c----------------------------
c   common blocks of Cmgraphs
c
 
c    2   ,sqti(nprofm)
c------------ --------------
c   common blocks of Comiogrl
c---------------------------
c----------------------------
c       common block Comiorlh(1-8)
c
c  ipropt         integer   #option for n-T profile calculation: 1 if
c                        # calculated from prontp; else =0.
 
 
c--------SCC  5/23/95
c*******  TKM  06/97, 2/00
c*************************
c********    TKM    11/98
c*******************************
c  #   SCC 3/27/92   SCC 4/13/95
      integer j1
c
c Comeqdsk
      ieqdsk = 0
      dat = '120996'
      ipestg = 3
      nxeqd = 33
      nzeqd = 65
      psiadj = 0.
      imodeq = 1
      liw = 4
      lw = 40
      ifail = 1
      nptsd = 181
      dang = 4.
      bperr = largest  ! was 1.e100 See notes at beginning of miscl.f
      arcl = largest   ! was 1.e100 See notes at beginning of miscl.f
      nti = 1
      inoperm1 = inoperm
      nptsdm1 = nptsdm
c
c  Comfdamp
      inf = 0
      enorm = 300.
      nint = 100
      nmax1 = 0
      bmax = 10.
      rtail = 0.
      r1t = 0.1
      r2t = 0.2
      ttail = 20.
      rhot = 0.
      r1h = 0.1
      r2h = 0.2
      thotpar = 5.
      thotper = 5.
      hotexp = 5.
      hotmnpar = 0.
      hotmxpar = largest                         ! was 1.e100
      hotmnper = 0.
      hotmxper = largest                         ! was 1.e100
      rbeam = 0.
      r1b = 0.1
      r2b = 0.2
      tbeam = 0.06
      ebeam = 1.
      thbeam = 30.
      inname = 'dskout'
      ifbilin = 1
      ifirstb = 1
      besdel = 1.E-4
c
c  Comhpcsd
c
      klim = 1000
      irecmx = 100000
c
c  Comnew
c
      npar = 101
      nper = 101
      intg = 501
      tnmaxe = 20.
      tnmaxi = 20.
      vloop = 0.
      kboot = 0
c
c   Comraylh
c
      phi0 = 0.
      dpwri = 0.
      dpwrf = 0.
      idmpsw = 0
      scatd = 0.
      iscat0 = 0
      alpha1 = 0.
      alpha2 = 0.
      solrfl = 0.5
      accur = 1.E-5
      psimn = 1.E-4
      psimx = 0.9001
      nspi0 = 10
      nthp0 = 1000
      nmax = 100
      imax = 100
      lmax = 5
      nwp = 51
      umax1 = 10.
      tmax = 700
      wpmx = 5.05E0
      wpmn = 0.5E-1
      nthp1 = 61
      iswchi = 0
      aerrmx = 1.E-5
      rerrmx = 2.E-6
      icurdr = 0
      idcur = 2
c
c   Cmgraphs
c
      nraypts = 500
c
c   Comiogrl
c
      ndim0 = 1000
      ndim1 = 999
      itrans = 0
c
c   Comiorlh
c
      versid = '120996'
      epser1 = 0.025
      epspfw = 1.E-6
      epspsw = 1.E-6
      nharm = 0
      isafa = 0
      qsaf0 = 1.05
      qsafa = 5.5
!      nprofn = nprofm
      nprofs = 20
      nprof = 20
      iedge = 0
      nspect = 1
      specfac = 0.5
      irayio = 0
      psistep = 0.
      pkexpnt = 0.
      nequip = 50
      indvar = 1
      gamene = 2.
      alpene = 0.5
      gamte = 2.
      alpte = 2.
      gamti = 2.
      alpti = 2.
c************    TKM   2/97
      presfr = 1.
      ffast = 0.
      frcne = 1.
      frcte = 1.
      frcti = 1.
      gamene1 = 1.
      alpene1 = 1.
      gamte1 = 1.
      alpte1 = 1.
      gamti1 = 1.
      alpti1 = 1.
c*************************************
c
c   cmnew
c
      npar = 101
      nper = 101
      intg = 501
      inc = 1
      incf = 1
      tnmaxe = 20.
      tnmaxi = 20.
      vloop = 0.
      btbsp = 1.0
      ftbsps = 1.0
c
      trate = 1.
      tratte = 1.
      ttle = 5.
      trati(:3) = 1.
      tratti(:3) = 1.
      ttli(:3) = 5.
      return 
      end subroutine setdflt
