Changeset 240 for trunk/SRC/ToBeReviewed/CALCULS
- Timestamp:
- 03/28/07 14:17:24 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/CALCULS/grossemoyenne.pro
r237 r240 556 556 if dirt EQ 1 AND keyword_set(spatialfirst) then BEGIN 557 557 IF (reverse(size(res, /dimension)))[0] NE jpt THEN BEGIN 558 print, 'the last dimension of res is not equal to jpt: '+strtrim(jpt, 2)558 ras = report('the last dimension of res is not equal to jpt: '+strtrim(jpt, 2)) 559 559 if keyword_set(savedbox) THEN restoreboxparam, 'boxparam4grmoyenne.dat' 560 560 return, -1
Note: See TracChangeset
for help on using the changeset viewer.