Changeset 495 for trunk/SRC/ToBeReviewed/CALCULS/rhon.pro
- Timestamp:
- 04/17/14 10:49:43 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/CALCULS/rhon.pro
r430 r495 42 42 tn = -1e5 > double(tn) < 1e5 43 43 44 45 44 IF keyword_set(sigma_n) then insitu = 1 46 45 … … 68 67 END 69 68 endcase 70 71 72 69 73 70 FOR jk = 0, jkmax-1 DO BEGIN … … 169 166 if keyword_set(key_performance) THEN print, 'temps rhon', systime(1)-tempsun 170 167 171 172 168 return, zrhop 173 169 END
Note: See TracChangeset
for help on using the changeset viewer.