      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
      use Vctransp
      use kind_spec

      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
      psiadj = 0.
      imodeq = 1
      liw = 4
      lw = 40
      ifail = 1
      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
      enorm = 300.
      nint = 100
      nmax1 = 0
      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.

c
c   Comraylh
c
      phi0 = 0.
      dpwri = 0.
      dpwrf = 0.
      alpha1 = 0.
      alpha2 = 0.
      solrfl = 0.5
      accur = 1.E-5
c
c   Cmgraphs
c
c
c   Comiogrl
c
      ndim0 = 1000
      ndim1 = 999
      itrans = 0
c
c   Comiorlh
c
      versid = '120996'
      epspfw = 1.E-6
      epspsw = 1.E-6
      nharm = 0
      isafa = 0
      qsaf0 = 1.05
      qsafa = 5.5
!      nprofn = nprofm
      nequip = 50
c************    TKM   2/97
      gamti1 = 1.
      alpti1 = 1.
c*************************************
c
c   cmnew
c
      npar = 101
      nper = 101
      intg = 501
      incf = 1
      tnmaxe = 20.
      tnmaxi = 20.
      vloop = 0.
      elp_tr(:nprofm) = 0.
      btbsp = 1.0
      ftbsps = 1.0
c
c-----Set less frequently changed CURRAY.IN input
c
      ieqdsk = 3
      initlh = 0
      dang = 4.
      nptsd = 91
      specfac = 0.5
      delthe = 0.05
      wfrac0 = 0.999
      deykpr = 1.
      scatd = 0.
      iscat0 = 0
      solrfl = 0.02
      accur = 1.e-5
      trate = 1.
      tratte = 1.
      ttle = 5.
      concte = 0.
      trati = 1.
      tratti = 1.
      ttli = 5.
      concti = 0.
      vdrfte = 0.
      vdrfti = 0.
      infi = 0.
      inf = -1
!     print *, 'inf=', inf
      precdy = 1./float(nions)
      dsteph = 0.02
      icoll = 1
      fcoll = 1.
      fdened = 1.
      fzefed = 1.
      fteed = 5.
      ftied = 5.
      wsol = 0.075
      phase = 90.
      presfr = 1.0
      ffast = 0.
      ibeam = 0
      bmpwr(1) = 5.
      abeam = 0.
      dbeam = 0.35
      aneb = 1.
      nharm0 = 5
      nraypic = 0
      psimn = 0.0001
      psimx = 0.901
      npsi0 = 26
      nthp0 = 1000
      nmax = 100
      imax = 100
      lmax = 5
      nwp = 51
      umax1 = 10.
      tmax = 700.
      wpmx = 5.05e0
      wpmn = 5.e-2
      nthp1 = 61
      iswchi = 0
      aerrmx = 1.e-5
      rerrmx = 2.e-6
c
c-----Set less frequently changed SPECFL.IN input
c
      npsig = 1
      nthpg = 1
      numg = 4
      npnt = 101
      mpnt = 26
c
      return
      end subroutine setdflt
