Révision 8 src/Calc_Xprim.f90

Calc_Xprim.f90 (revision 8)
97 97
  END IF
98 98

  
99 99

  
100
  WRITE(*,*) "Coordinate:",associated(Coordinate),coordinate%Type
100
!  WRITE(*,*) "Coordinate:",associated(Coordinate),coordinate%Type
101 101

  
102 102
     ScanCoord => Coordinate
103 103

  
104
  WRITE(*,*) "ScanCoord:",associated(ScanCoord),ScanCoord%Type
104
!  WRITE(*,*) "ScanCoord:",associated(ScanCoord),ScanCoord%Type
105 105

  
106 106
!     WRITE(*,*) "coucou"
107 107
     I=0 ! index for the NPrim (NPrim is the number of primitive coordinates).

Formats disponibles : Unified diff