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