Révision 4

src/EgradPath.f90 (revision 4)
641 641

  
642 642
     DEALLOCATE(GradCart,PathCart)
643 643

  
644
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
645
!
646
! Serial executions
647
!
648
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
644 649
  ELSE ! matches IF (RunMode=="PARA") THEN
645 650
 ! We will launch all calculations sequentially
646 651
     ALLOCATE(GradTmp(NCoord))
src/Egrad.f90 (revision 4)
203 203
     Call egrad_test(Nat,E,Geomcart,GradCart)
204 204
  CASE ('CHAMFRE')
205 205
     Call egrad_chamfre(Nat,E,Geomcart,GradCart)
206
  CASE ('LEPS')
207
     Call egrad_LEPS(Nat,E,Geomcart,GradCart)
206 208
  END SELECT
207 209
  if (debug) THEN
208 210
     WRITE(*,*) 'DBG EGRAD, GradCart read'

Formats disponibles : Unified diff