source: trunk/GRILLE/umask.pro @ 2

Last change on this file since 2 was 2, checked in by opalod, 22 years ago

Initial revision
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.5 KB
Line 
1;------------------------------------------------------------
2;------------------------------------------------------------
3;------------------------------------------------------------
4;+
5; NAME:umask
6;
7; PURPOSE:calcule umask
8;
9; CATEGORY:fonction economisatrice de memoire (plus besion de garder
10; umask) 
11;
12; CALLING SEQUENCE:res=umask()
13;
14; INPUTS:
15;
16; KEYWORD PARAMETERS:
17;
18; OUTPUTS:un tableau 3d correspondant a umask
19;
20; COMMON BLOCKS:
21;       common.pro
22;
23; SIDE EFFECTS:
24;
25; RESTRICTIONS:
26;
27; EXAMPLE:s''utilise comme si umask etait un tableau connu en
28; replacant ds la syntaxe umask par umask(). par ex:
29; au lieu de taper umask[domaineu] il faut taper (umask())[domaineu]
30
31;
32; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr)
33;                       11/12/98
34;                       ??/6/99 introduction du key_shift
35;                       20/9/99 cas jpk=1 (merci jpblod@ipsl.jussieu.fr)
36;-
37;------------------------------------------------------------
38;------------------------------------------------------------
39;------------------------------------------------------------
40FUNCTION umask
41   tempsun = systime(1)         ; pour key_performance
42@common
43   if jpk EQ 1 then begin
44      res = tmask*shift(tmask, -1, 0)
45      if NOT keyword_set(key_periodique) then res[jpi-1, *] = umaskred
46   ENDIF ELSE BEGIN
47      res = tmask*shift(tmask, -1, 0, 0)
48      if NOT keyword_set(key_periodique) then res[jpi-1, *, *] = umaskred
49   ENDELSE
50;
51   if keyword_set(key_performance) THEN print, 'temps umask', systime(1)-tempsun
52;
53   return, res
54end
Note: See TracBrowser for help on using the repository browser.