Révision 4 src/EgradPath.f90

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))

Formats disponibles : Unified diff