Changeset 226 for trunk/SRC/Obsolete/lec.pro
- Timestamp:
- 03/16/07 10:22:26 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Obsolete/lec.pro
r157 r226 6 6 ; lit les fichiers Vairmer en sort: 7 7 ; un tableau 2d ou 3d en fonction de nomchamp qui est le nom 8 ; du champ a ext aire (2d s'il commence par SO et 3d s'il commence par VO)8 ; du champ a extraire (2d s'il commence par SO et 3d s'il commence par VO) 9 9 ; cette fonction modifie aussi les variables globales: 10 10 ; varname: trois lettres: nom de l'experience 11 11 ; vargrid: nom de la grille 12 12 ; vardate: date (yy)yymmdd 13 ; varexp: nom Vairmer du champ a t arcer13 ; varexp: nom Vairmer du champ a tracer 14 14 ; 15 15 ; @obsolete 16 16 ; 17 ; @categories 17 ; @categories 18 18 ; Graphics, Reading 19 19 ; … … 25 25 ; minuscule commencant par vo ou so). Dans cette methode on saute directement 26 26 ; d'en-tete en en-tete jusqu'a trouver le bon fichier. 27 ; 2) chaine de c haracteres commencant par vo ou so suivit du27 ; 2) chaine de caracteres commencant par vo ou so suivit du 28 28 ; numero de champ a aller chercher (par ex 'vo5'). Cette methode est un peu 29 29 ; plus rapide car elle va directement chercher le fichier qui nous interesse. … … 72 72 ; @uses common.pro isnumber.pro fivardate.pro 73 73 ; 74 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 74 ; @history 75 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 75 76 ; 26/5/98 76 77 ; Jerome Vialard : adaptation au format vairmer … … 82 83 ; 2/99 83 84 ; 84 ; @version $Id$ 85 ; @version 86 ; $Id$ 85 87 ; 86 88 ;;- … … 166 168 ; le fortran ajoute au debut et a la fin de chaque write 4 octets de controle 167 169 ; les reels du model sont codes sur 4 octets 168 ; un c haractere fait 1 octet170 ; un caractere fait 1 octet 169 171 ;----------------------------------------------------------------------- 170 ;4 chaines de 8 c haracteres+un tableau de reels+4 trucs de controle (pour les172 ;4 chaines de 8 caracteres+un tableau de reels+4 trucs de controle (pour les 171 173 ; 2 write): 172 174 if dim eq 'VO' then $ … … 229 231 ;--------------------------------------------------------------------- 230 232 if taillebloc*numerochamp gt infofichier.size then $ 231 return, report('Ce numero de champ n''exi te pas. Le fichier '+infofichier.name+' ne contient que ',infofichier.size/taillebloc,' champs.')233 return, report('Ce numero de champ n''existe pas. Le fichier '+infofichier.name+' ne contient que ',infofichier.size/taillebloc,' champs.') 232 234 ;--------------------------------------------------------------------- 233 235 ; lecture de l'en-tete numero numerochamp … … 306 308 ENDIF ELSE BEGIN 307 309 case vargrid OF ; on recupere le mask en entier ds le cas ou /TOUT 308 'U':mask = umask() ; n''est pas active et on le choisit en fon tion310 'U':mask = umask() ; n''est pas active et on le choisit en fonction 309 311 'T':mask = tmask ; de la valeur de vargrid 310 312 'W':mask = tmask
Note: See TracChangeset
for help on using the changeset viewer.