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