Révision 8 src/Calc_zmat_frag.f90

Calc_zmat_frag.f90 (revision 8)
31 31
!
32 32
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
33 33

  
34
  Use Path_module, only : max_Z, NMaxL, Nom,MaxFroz, Pi
34
  Use Path_module, only : max_Z, NMaxL, Nom, Pi
35 35
  Use Io_module
36 36

  
37 37
  IMPLICIT NONE
......
1207 1207

  
1208 1208
! This subroutine comes for Cart. Slightly modified to be f90
1209 1209

  
1210
  Use Path_module, only : max_Z, NMaxL, Nom,MaxFroz, Pi
1210
  Use Path_module, only :  Nom
1211 1211
  Use Io_module
1212 1212

  
1213 1213
  IMPLICIT NONE

Formats disponibles : Unified diff