Révision 8 src/Calc_baker_allGeomF.f90

Calc_baker_allGeomF.f90 (revision 8)
5 5
  ! v1.0
6 6
  ! We use only one geometry
7 7
  !     
8
  Use Path_module, only : Pi,a0,BMat_BakerT,Nat,NCoord,XyzGeomI,NGeomI,UMatF, &
9
                          NPrim,BTransInvF,IntCoordI,Coordinate,CurrentCoord, &
10
              ScanCoord,BprimT,BBT,BBT_inv,XprimitiveF,Symmetry_elimination, &
8
  Use Path_module, only : BMat_BakerT,Nat,NCoord,UMatF, &
9
                          NPrim,BTransInvF,Coordinate, &
10
              ScanCoord,BprimT,BBT,BBT_inv,XprimitiveF, &
11 11
              NgeomF,XyzGeomF
12 12
  ! BMat_BakerT(3*Nat,NCoord), NCoord=3*Nat or NFree=3*Nat-6-Symmetry_elimination
13 13
  ! depending upon the coordinate choice. IntCoordI(NGeomI,NCoord) where 

Formats disponibles : Unified diff