Révision 8 src/Calc_mixed_frag.f90

Calc_mixed_frag.f90 (revision 8)
9 9
  !     we first construct the zmat using only the frozen atoms, and then
10 10
  !     we add the other atoms on top of the first ones...
11 11
  !     
12
  Use Path_module, only : max_Z, NMaxL, Nom,MaxFroz
12
  Use Path_module, only : max_Z, NMaxL, Nom
13 13
  Use Io_module
14 14

  
15 15
  IMPLICIT NONE
......
1011 1011

  
1012 1012
! This subroutine comes for zmat_g92
1013 1013

  
1014
  Use Path_module, only : max_Z, NMaxL, Nom,MaxFroz, Pi
1014
  Use Path_module, only :   Nom
1015 1015
  Use Io_module
1016 1016

  
1017 1017
  IMPLICIT NONE

Formats disponibles : Unified diff