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