- Timestamp:
- 04/24/06 10:40:41 (18 years ago)
- Location:
- trunk
- Files:
-
- 4 deleted
- 13 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/CALENDRIER/leapyr.pro
r2 r7 41 41 tmp = where(yr lt 100,count) 42 42 if (count gt 0) then yr(tmp) = yr(tmp)+1900 ;make it the 20th century 43 print,'TOTO'44 ;return,(399+(yr mod 400))/400 - (3+(yr mod 4))/445 return, 0 43 44 return,(399+(yr mod 400))/400 - (3+(yr mod 4))/4 45 46 46 end -
trunk/MATRICE/colle.pro
r2 r7 105 105 ;------------------------------------------------------------ 106 106 case direc of 107 1:BEGIN ; on colle suivant la dimension 1107 1:BEGIN ; on colle suivant la dimension 1 108 108 res = *ptrtab[0] 109 109 if NOT keyword_set(sauve) then ptr_free, ptrtab[0] … … 113 113 ENDFOR 114 114 END 115 2:BEGIN ; on colle suivant la dimension 2115 2:BEGIN ; on colle suivant la dimension 2 116 116 res = *ptrtab[0] 117 117 if NOT keyword_set(sauve) then ptr_free, ptrtab[0] … … 121 121 ENDFOR 122 122 END 123 3:BEGIN ; on colle suivant la dimension 3123 3:BEGIN ; on colle suivant la dimension 3 124 124 res = *ptrtab[0] 125 125 if NOT keyword_set(sauve) then ptr_free, ptrtab[0] … … 136 136 permute[0] = direc-1 137 137 permute[direc-1] = 0 138 if (size(*ptrtab[0]))[0] NE direc then $ 139 *ptrtab[0] = reform(*ptrtab[0], [(size(*ptrtab[0]))[1:direc-1], 1], /over) 138 140 res = transpose(*ptrtab[0], permute) 139 141 if NOT keyword_set(sauve) then ptr_free, ptrtab[0] 140 142 FOR n = 1,nbretab-1 DO BEGIN ; on colle suivant la dimension 1 143 if (size(*ptrtab[n]))[0] NE direc then $ 144 *ptrtab[n] = reform(*ptrtab[n], [(size(*ptrtab[n]))[1:direc-1], 1]) 141 145 res = [temporary(res), transpose(*ptrtab[n], permute)] 142 146 if NOT keyword_set(sauve) then ptr_free, ptrtab[n] -
trunk/PLOTS/DESSINE/plt.pro
r2 r7 489 489 map_lon = map[1] 490 490 map_rot = map[2] 491 if n_elements(ex) NE 0 then BEGIN 492 if (where(tag_names(ex) EQ 'TITLE'))[0] NE -1 then BEGIN 493 titre = ex.title 494 ex.title = '' 495 endif 496 ENDIF 491 if chkstru(ex, 'TITLE') then begin 492 maptitre = ex.title 493 ex.title = '' 494 endif 497 495 map_set, map_lat, map_lon, map_rot, _extra = ex, position = posfenetre, /iso $ 498 496 ,limit = [lat1, lon1, lat2, lon2], /noborder 497 if n_elements(maptitre) ne 0 then ex.title = maptitre 499 498 if n_elements(tri) GE 2 then tri = ciseauxtri(tri, glam, gphi, _EXTRA = ex) 500 499 if n_elements(trimsk) GE 2 then trimsk = ciseauxtri(trimsk,glammsk,gphimsk,_EXTRA=ex) … … 617 616 ex.noerase = 1 618 617 endif 618 if chkstru(ex, 'SUBTITLE') then !p.subtitle = ex.SUBTITLE 619 if n_elements(maptitre) ne 0 then ex.title = maptitre 619 620 map_set, map_lat, map_lon, map_rot, _extra = ex, /iso, limit = [lat1, lon1, lat2, lon2]$ 620 621 , /NOERASE, /noborder, title = !p.title, color = 0 -
trunk/STRING/strcnt.pro
r2 r7 28 28 ; MODIFICATION HISTORY: 29 29 ; $Id$ 30 ; $Log$ 31 ; Revision 1.1 2002/09/11 10:17:16 opalod 32 ; Initial revision 33 ; 30 ; $Log: strcnt.pro,v $ 34 31 ; Revision 1.3 1996/06/14 20:00:27 mcraig 35 32 ; Updated Copyright info. … … 43 40 ; 44 41 ; RELEASE: 45 ; $Name $42 ; $Name: Rel_1_2 $ 46 43 ; 47 44 ; COPYRIGHT: -
trunk/STRING/strtok.pro
r2 r7 38 38 ; MODIFICATION HISTORY: 39 39 ; $Id$ 40 ; $Log$ 41 ; Revision 1.1 2002/09/11 10:17:16 opalod 42 ; Initial revision 43 ; 40 ; $Log: strtok.pro,v $ 44 41 ; Revision 1.3 1996/06/14 20:00:27 mcraig 45 42 ; Updated Copyright info. … … 52 49 ; 53 50 ; RELEASE: 54 ; $Name $51 ; $Name: Rel_1_2 $ 55 52 ; 56 53 ; COPYRIGHT: -
trunk/STRING/strtrans.pro
r2 r7 37 37 ; MODIFICATION HISTORY: 38 38 ; $Id$ 39 ; $Log$ 40 ; Revision 1.1 2002/09/11 10:17:16 opalod 41 ; Initial revision 42 ; 39 ; $Log: strtrans.pro,v $ 43 40 ; Revision 1.3 1996/06/14 20:00:27 mcraig 44 41 ; Updated Copyright info. … … 52 49 ; 53 50 ; RELEASE: 54 ; $Name $51 ; $Name: Rel_1_2 $ 55 52 ; 56 53 ; COPYRIGHT: -
trunk/TEXT2IDL/matchdelim.pro
r2 r7 35 35 ; MODIFICATION HISTORY: 36 36 ; $Id$ 37 ; $Log$ 38 ; Revision 1.1 2002/09/11 10:17:16 opalod 39 ; Initial revision 40 ; 37 ; $Log: matchdelim.pro,v $ 41 38 ; Revision 1.3 1996/06/14 20:00:27 mcraig 42 39 ; Updated Copyright info. … … 50 47 ; 51 48 ; RELEASE: 52 ; $Name $49 ; $Name: Rel_1_2 $ 53 50 ; 54 51 ; COPYRIGHT: -
trunk/TEXT2IDL/nexttok.pro
r2 r7 28 28 ; MODIFICATION HISTORY: 29 29 ; $Id$ 30 ; $Log$ 31 ; Revision 1.1 2002/09/11 10:17:16 opalod 32 ; Initial revision 33 ; 30 ; $Log: nexttok.pro,v $ 34 31 ; Revision 1.3 1996/06/14 20:00:27 mcraig 35 32 ; Updated Copyright info. … … 43 40 ; 44 41 ; RELEASE: 45 ; $Name $42 ; $Name: Rel_1_2 $ 46 43 ; 47 44 ; COPYRIGHT: -
trunk/TEXT2IDL/showtex.pro
r2 r7 25 25 ; MODIFICATION HISTORY: 26 26 ; $Id$ 27 ; $Log$ 28 ; Revision 1.1 2002/09/11 10:17:16 opalod 29 ; Initial revision 30 ; 27 ; $Log: showtex.pro,v $ 31 28 ; Revision 1.3 1996/06/14 20:00:27 mcraig 32 29 ; Updated Copyright info. … … 39 36 ; 40 37 ; RELEASE: 41 ; $Name $38 ; $Name: Rel_1_2 $ 42 39 ; 43 40 ; COPYRIGHT: -
trunk/TEXT2IDL/textable.pro
r2 r7 29 29 ; MODIFICATION HISTORY: 30 30 ; $Id$ 31 ; $Log$ 32 ; Revision 1.1 2002/09/11 10:17:16 opalod 33 ; Initial revision 34 ; 31 ; $Log: textable.pro,v $ 35 32 ; Revision 1.7 1996/07/22 23:56:08 mcraig 36 33 ; Added \vartheta. … … 57 54 ; 58 55 ; RELEASE: 59 ; $Name $56 ; $Name: Rel_1_2 $ 60 57 ; 61 58 ; COPYRIGHT: -
trunk/TEXT2IDL/textoidl.pro
r2 r7 40 40 ; MODIFICATION HISTORY: 41 41 ; $Id$ 42 ; $Log$ 43 ; Revision 1.1 2002/09/11 10:17:16 opalod 44 ; Initial revision 45 ; 42 ; $Log: textoidl.pro,v $ 46 43 ; Revision 1.4 1996/06/14 20:00:27 mcraig 47 44 ; Updated Copyright info. … … 57 54 ; 58 55 ; RELEASE: 59 ; $Name $56 ; $Name: Rel_1_2 $ 60 57 ; 61 58 ; COPYRIGHT: -
trunk/TEXT2IDL/translate_sub_super.pro
r2 r7 46 46 ; MODIFICATION HISTORY: 47 47 ; $Id$ 48 ; $Log$ 49 ; Revision 1.1 2002/09/11 10:17:16 opalod 50 ; Initial revision 51 ; 48 ; $Log: translate_sub_super.pro,v $ 52 49 ; Revision 1.4 1996/06/14 20:00:27 mcraig 53 50 ; Updated Copyright info. … … 62 59 ; 63 60 ; RELEASE: 64 ; $Name $61 ; $Name: Rel_1_2 $ 65 62 ; COPYRIGHT: 66 63 ; Copyright (C) 1996 The Regents of the University of California, All … … 138 135 ; MODIFICATION HISTORY: 139 136 ; $Id$ 140 ; $Log$ 141 ; Revision 1.1 2002/09/11 10:17:16 opalod 142 ; Initial revision 143 ; 137 ; $Log: translate_sub_super.pro,v $ 144 138 ; Revision 1.4 1996/06/14 20:00:27 mcraig 145 139 ; Updated Copyright info. … … 158 152 ; 159 153 ; RELEASE: 160 ; $Name $154 ; $Name: Rel_1_2 $ 161 155 ; 162 156 ; COPYRIGHT: -
trunk/UTILITAIRE/routine_name.pro
r2 r7 53 53 ; 54 54 version=strmid(!version.release,0,3) 55 if version EQ '5.2' OR version EQ '5.3' OR version EQ '5.4' then begin55 if version EQ '5.2' OR version EQ '5.3' OR version EQ '5.4' OR version EQ '5.5' OR version EQ '5.6' then begin 56 56 help, /traceback, output = name 57 57 name = strtrim(name, 1) ; on enleve les blancs en debut de ligne … … 75 75 if n_elements(name) LT 3 then name = name[0] ELSE name = 'L.'+name[1]+' '+name[2] 76 76 ENDIF ELSE BEGIN 77 print, ('attention la fonction routine_name a ete ecrite pour les versions: !C IDL 5.2, IDL 5.2.1, 5.3 ou 5.4. ou 5.4.1 Verifier qu''elle marche bien avec la version '+!version.release)77 print, 'attention la fonction routine_name a ete ecrite pour les versions: IDL 5.2, IDL 5.2.1, 5.3 ou 5.4. ou 5.4.1 ou 5.5 ou 5.6 Verifier qu''elle marche bien avec la version '+!version.release 78 78 return, 'Error' 79 79 ENDELSE
Note: See TracChangeset
for help on using the changeset viewer.