124 lines
5.2 KiB
Fortran
124 lines
5.2 KiB
Fortran
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
|