SUBROUTINE NSTOUT
C     =================
C
C     Diagnostic print of the input flags and parameters
c
      INCLUDE 'IMPLIC.FOR'
      INCLUDE 'BASICS.FOR'
      INCLUDE 'ATOMIC.FOR'
      INCLUDE 'MODELQ.FOR'
      INCLUDE 'ITERAT.FOR'
      INCLUDE 'ODFPAR.FOR'
      INCLUDE 'ALIPAR.FOR'
C
      if(lchc) ichc=1
      write(6,602)
     *             ISPLIN,IRTE  ,IBC   ,ILMCOR,ILPSCT,
     *             ILASCT,DJMAX ,NTRALI,IPSLTE,
     *             ICOMPT,IZSCAL,IBCHE ,IVISC ,
     *             IFALI ,IFPOPR,JALI  ,IFRALI,
     *             IFPREC,IELCOR,ICHC  ,IRSPLT,IATREF,
     *             MODREF,IACPP ,IACPD ,IFLEV, IDLTE,
     *             POPZER,POPZR2,RADZER,NITZER,IFDIEL,
     *             IOVER ,ITLAS ,NITER ,NLAMBD,ND,
     *             JIDS  ,IDMFIX,NMU   ,
     *             NELSC ,IHECOR,IBFINT,IRDER ,
     *             CHMAX ,ILDER ,IBPOPE,CHMAXT,NLAMT
      write(6,603) INTRPL,ICHANG,
     *             INHE  ,INRE  ,INPC  ,INSE  ,INMP  ,
     *             INDL  ,NDRE  ,TAUDIV,IDLST ,NRETC ,
     *             ICONV ,IPRESS,ITEMP ,
     *             IOPADD,IRSCT ,IOPHMI,IOPH2P,
     *             IACC  ,IACD  ,KSNG  ,ITEK  ,ORELAX,
     *             IWINBL,
     *             ICRSW ,SWPFAC,SWPLIM,SWPINC,
     *             IFPRD ,XPDIV
      write(6,604) TRAD  ,WDIL  ,
     *             HMIX0 ,VTB/1.e5   ,IPTURB,
     *             XGRAD ,STRL1 ,STRL2 ,STRLX ,
     *             FRCMAX,FRCMIN,FRLMAX,FRLMIN,CFRMAX,
     *             DFTAIL,NFTAIL,TSNU  ,VTNU/1.e5  ,DDNU  ,
     *             IELNU ,CNU1  ,CNU2  ,ISPODF,
     *             DPSILG,DPSILT,DPSILN,DPSILD
      write(6,605) ICOMST,ICOMDE,ICOMBC,
     *             ICMDRA,KNISH,
     *             NCFOR1,NCFOR2,NCCOUP,NCITOT,NCFULL
      IF(LTGREY)   WRITE(6,606)
     *             TAUFIR,TAULAS,ABROS0,TSURF ,ALBAVE,
     *             ABPLA0,ABPMIN,
     *             DION0 ,NDGREY,IDGREY,NCONIT,IPRING,
     *             IHM   ,IH2   ,IH2P
c
  602 FORMAT(/' VALUES OF SOME KEYWORD PARAMETERS:'/
     *        ' =================================='//
     *       'ISPLIN=',I6,2X,'IRTE  =',I6,2X,'IBC   =',I6,2X,
     *       'ILMCOR=',I6,2X,'ILPSCT=',I6,2X/
     *       'ILASCT=',I6,2X,'DJMAX =',F6.3,2X,'NTRALI=',I6,2X,
     *       'IPSLTE=',I6,2X/
     *       'ICOMPT=',I6/
     *       'IZSCAL=',I6,2X,'IBCHE =',I6,2X,'IVISC =',I6,2X/
     *       'IFALI =',I6,2X,'IFPOPR=',I6,2X,'JALI  =',I6,2X,
     *       'IFRALI=',I6,2X/
     *       'IFPREC=',I6,2X,'IELCOR=',I6,2X,'ICHC  =',I6,2X,
     *       'IRSPLT=',I6,2X,'IATREF=',I6,2X/
     *       'MODREF=',I6,2X,'IACPP =',I6,2X,'IACPD =',I6,2X,
     *       'IFLEV =',I6,2X,'IDLTE =',I6,2X/
     *       'POPZER=',1PE6.0,2X,'POPZR2=',1PE6.0,2X,
     *       'RADZER=',1PE6.0,2X,'NITZER=',I6,2X,'IFDIEL=',I6,2X/
     *       'IOVER =',I6,2X,'ITLAS =',I6,2X/
     *       'NITER =',I6,2X,'NLAMBD=',I6,2X,'ND    =',I6/
     *       'JIDS  =',I6,2X,'IDMFIX=',I6/
     *       'NMU   =',I6/
     *       'NELSC =',I6,2X,'IHECOR=',I6,2X,'IBFINT=',I6,2X,
     *       'IRDER =',I6,2X,'CHMAX =',0PF6.3,2X/
     *       'ILDER =',I6,2X,'IBPOPE=',I6,2X,
     *       'CHMAXT=',F6.3,2X,'NLAMT =',I6,2X)
  603 FORMAT('INTRPL=',I6,2X,'ICHANG=',I6,2X/
     *       'INHE  =',I6,2X,'INRE  =',I6,2X,'INPC  =',I6,2X,
     *       'INSE  =',I6,2X,'INMP  =',I6,2X/
     *       'INDL  =',I6,2X,'NDRE  =',I6,2X,'TAUDIV=',F6.3,2X,
     *       'IDLST =',I6,2X,'NRETC =',I6,2X/
     *       'ICONV =',I6,2X,'IPRESS=',I6,2X,'ITEMP =',I6,2X/
     *       'IOPADD=',I6,2X,'IRSCT =',I6,2X,'IOPHMI=',I6,2X,
     *       'IOPH2P=',I6,2X/
     *       'IACC  =',I6,2X,'IACD  =',I6,2X,'KSNG  =',I6,2X,
     *       'ITEK  =',I6,2X,'ORELAX=',F6.3,2X/
     *       'IWINBL=',I6,2X/
     *       'ICRSW =',I6,2X,'SWPFAC=',F6.3,2X,'SWPLIM=',F6.3,2X,
     *       'SWPINC=',F6.3,2X/
     *       'IFPRD =',I6,2X,'XPDIV =',F6.1/)
  604 FORMAT('TRAD  =',F6.0,2X,'WDIL  =',F5.3/
     *       'HMIX0 =',F6.1,2X,'VTB   =',F6.0,2X,I6/
     *       'XGRAD =',F6.2,2X,'STRL1 =',1PE6.0,2X,'STRL2 =',E6.0/
     *       'STRLX =',1PE6.0/
     *       'FRCMAX=',1PE6.0,2X,'FRCMIN=',1PE6.0,2X,
     *       'FRLMAX=',1PE6.0,2X,'FRLMIN=',1PE6.0,/,
     *       'CFRMAX=',0PF6.2,/
     *       'DFTAIL=',0PF6.3,2X,'NFTAIL=',I6,/
     *       'TSNU  =',F6.0,2X,'VTNU  =',F6.2,2X,'DDNU  =',F6.3,/
     *       'IELNU =',I6,2X,'CNU1  =',F6.2,2X,'CNU2  =',F6.2,/
     *       'ISPODF=',I6,/
     *       'DPSILG=',F6.2,2X,'DPSILT=',F6.2,2X,'DPSILN=',F6.2,2X,
     *       'DPSILD=',F6.2,/)
  605 FORMAT('ICOMST=',I6,2X,'ICOMDE=',I6,2X,'ICOMBC=',I6/
     *       'ICMDRA=',I6,2X,'KNISH =',I6/
     *       'NCFOR1=',I6,2X,'NCFOR2=',I6,2X,'NCCOUP=',I6,2X,
     *       'NCITOT=',I6,2X,'NCFULL=',I6)
  606 FORMAT('TAUFIR=',1PE6.0,2X,'TAULAS=',0PF6.1,2X,'ABROS0=',F6.3,2X,
     *       'TSURF =',F6.3,2X,'ALBAVE=',F6.3/
     *       'ABPLAO=',F6.3,2X,'ABPMIN=',1PE6.0/
     *       'DION0 =',0PF6.3,2X,'NDGREY=',I6,2X,'IDGREY=',I6,2X,
     *       'NCONIT=',I6,2X,'IPRING=',I6,2X/
     *       'IHM   =',I6,2X,'IH2   =',I6,2X,'IH2P  =',I6,2X/)
C
C     Outdated options (or options not yet implemented 
C                       for distributed processing!)
C
      IF(ISPODF.GE.1) THEN
         IF(IFPREC.EQ.0) 
     *   CALL QUIT('inconsistent ispodf and ipfrec',ispodf,ifprec) 
      END IF
C
      RETURN
      END