Changeset 539
- Timestamp:
- 04/24/12 18:17:19 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/cresamsu.pro
r528 r539 147 147 routine = (SCOPE_TRACEBACK(/STRUCTURE))[s-1].Routine 148 148 ; 149 key_performance=0 149 150 if key_performance EQ 1 THEN BEGIN 150 151 time1 = SYSTIME(1) … … 259 260 ddmb=ddb 260 261 ddme=dde 262 mmyb=mmb 263 mmye=mme 261 264 for yyyy=yyyyb,yyyye do begin 262 for mm=mmb,mme do begin 265 if (yyyye ne yyyyb) then begin 266 mmyb=1 267 mmye=12 268 if yyyy eq yyyyb then mmyb=mmb 269 if yyyy eq yyyye then mmye=mme 270 endif 271 print,"traitement annee ",yyyy,'mois ',mmyb,'a ',mmye 272 for mm=mmyb,mmye do begin 263 273 if (mme ne mmb) then begin 264 274 ddmb=1
Note: See TracChangeset
for help on using the changeset viewer.