Révision 9 src/EgradPath.f90

EgradPath.f90 (revision 9)
696 696
        END IF
697 697

  
698 698
        GeomCart=0.d0
699
        IF(IOpt .EQ. 1) Then
700
           Print *, 'GeomTmp='
701
           WRITE(*,'(12(1X,F6.3))') GeomTmp
702
           Print *, 'GeomCart='
703
           WRITE(*,'(12(1X,F6.3))') GeomCart
704
      END IF
699
!        IF(IOpt .EQ. 1) Then
700
!           Print *, 'GeomTmp='
701
!           WRITE(*,'(12(1X,F6.3))') GeomTmp
702
!           Print *, 'GeomCart='
703
!           WRITE(*,'(12(1X,F6.3))') GeomCart
704
!      END IF
705 705
    
706 706
       ! GradTmp is gradient and calculated in Egrad.F, INTENT(OUT).
707 707
       ! GeomCart has INTENT(OUT)

Formats disponibles : Unified diff