Révision 4 src/Egrad.f90

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