Révision 8 src/EgradPath.f90

EgradPath.f90 (revision 8)
6 6
  use Path_module, only : ProgExe, NCoord, PROG, Nat, NGeomF, Coord, IntCoordF, &
7 7
       IndZmat, XyzGeomF, Atome, Order, OrderInv, Latr, FrozAtoms, &
8 8
       Grad, Energies, renum, dzdc, massat, Pi, NCART, OptReac, &
9
       OptProd, IntCoordI, GeomOld_all, AtName, Unit, CalcEReac, CalcEProd
9
       OptProd,  AtName, Unit, CalcEReac, CalcEProd
10 10
  ! GeomOld_all(NGeomF,NCoord), BTransInv (3*Nat,NCoord): used for Baker case
11 11
  use Io_module
12 12

  

Formats disponibles : Unified diff