SUBROUTINE REXPONENTS ( IBC, IB, ISTOP )

Argument Definitions (+ indicates altered content)
INTEGER           +IB,        +IBC,       +ISTOP
Description
                                                                        * 
  Copyright (C) 1996-2010 Jacek Kobus               * 
                                                                        * 
  This program is free software; you can redistribute it and/or modify  * 
  it under the terms of the GNU General Public License version 2 as     * 
  published by the Free Software Foundation.                            * 
                                                                        * 
 
### rexponents ### 
 
    Reads exponents and contraction coefficients from 
    a GAUSSSIAN94 output obtained with gfinput keyword 
 
    Warning! 
    Basis functions of g, h and higher symmertries are not allowed 
    Uncontracted basis set must be used
Source file:rexponents.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
               7          SEQ  FMTD          R   
      *                   SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Parameter Variables Used
INTEGER            MAXBASIS           (MAXBASIS = 650)
INTEGER            MAXCF              (MAXCF = 100)
Local Variables (+ indicates altered content)
CHARACTER*3       +SYMLAB
INTEGER           +I,         +ICENT,     +J,         +K
INTEGER           +NCF
REAL*8            +DCOEF(MAXCF,4),        +EXPON(MAXCF)
Referenced Common Block Variables (+ indicates altered content)
GAUSS20            INTEGER           +LPRIM(650)
GAUSS20            INTEGER           +MPRIM(650)
GAUSS20            REAL*8            +PRIMEXP(650)
GAUSS21            INTEGER           +IXREF(650)
GAUSS21            REAL*8            +COEFF(650)