C^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ SUBROUTINE INFOUT(ICAR,ICAF,IPRE,IPCC,IMD,IOVE,IRES,IORW,ISSS & ,ISTMD,ICOST,IOUT,IMDI,NBAND1,NBAND2 & ,IREC8,IREC9,KREC8,KREC9,KBZTYP & ,WIDTH,CMIX,DTIMEL,DTIMIO,DTIMUC,KTPCC) C^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ IMPLICIT REAL(A-H,O-Y) IMPLICIT COMPLEX(Z) INCLUDE 'PACVPP' INTEGER KTPCC(KTYP),KMDTP(KATM) C WRITE (6,*) 'IPRE = ',IPRE WRITE (6,*) 'ICAR = ',ICAR WRITE (6,*) 'ICAF = ',ICAF WRITE (6,*) 'IPRI = ',IPRI WRITE (6,*) 'ICONT = ',ICONT WRITE (6,*) 'IPCC = ',IPCC WRITE (6,*) 'KBZTYP = ',KBZTYP WRITE (6,*) 'IMD = ',IMD WRITE (6,*) 'IOVE = ',IOVE WRITE (6,*) 'IMDI = ',IMDI WRITE (6,*) 'IRES = ',IRES WRITE (6,*) 'IORW = ',IORW WRITE (6,*) 'ISSS = ',ISSS WRITE (6,*) 'ISTOP = ',ISTOP WRITE (6,*) 'ISTMD = ',ISTMD WRITE (6,*) 'ICOST = ',ICOST WRITE (6,*) 'IOUT = ',IOUT WRITE (6,*) 'IREC8 = ',IREC8 WRITE (6,*) 'IREC9 = ',IREC9 WRITE (6,*) 'KREC8 = ',KREC8 WRITE (6,*) 'KREC9 = ',KREC9 WRITE (6,*) 'UP-BAND = ',NBAND1 WRITE (6,*) 'DOWN-BAND = ',NBAND2 C OUTPUT INCLUDE FILE INFORMATION WRITE (6,*) 'OUTPUT INCLUDE FILE INFORMATION' WRITE (6,*) 'KNX,Y,Z =',KNX,KNY,KNZ WRITE (6,*) 'KNG,1,11 =',KNG,KNG1,KNG11 WRITE (6,*) 'KNBMX =',KNBMX WRITE (6,*) 'KNVX,Y,Z =',KNVX,KNVY,KNVZ WRITE (6,*) 'KVX2,Y2,Z2=',KNVX2,KNVY2,KNVZ2 WRITE (6,*) 'KEG,KBD1,2=',KEG,KBD1,KBD2 WRITE (6,*) 'KTYP,KATM =',KTYP,KATM WRITE (6,*) 'EWALD =',KLX,KLY,KLZ,KMX,KMY,KMZ WRITE (6,*) 'DTIMEL =',DTIMEL WRITE (6,*) 'DTIMIO =',DTIMIO WRITE (6,*) 'DTIMUC =',DTIMUC WRITE (6,*) 'WIDTH =',WIDTH WRITE (6,*) 'CMIX =',CMIX WRITE (6,*) 'TEMPSB =',TEMPSB DO 1000 ITYP=1,KTYP WRITE (6,*) 'KTPCC =',KTPCC(ITYP) 1000 CONTINUE DO 1010 I=1,6 WRITE (6,*) 'PEX = ',I,PEX(I) 1010 CONTINUE DO 2000 I=1,KATM WRITE (6,*) 'AMION = ',AMION(I) 2000 CONTINUE RETURN END