FSTMSQ

RMNLIB

(FSTMSQ)

FSTD


INTEGER FUNCTION FSTMSQ( iun,mip1,mip2,mip3,metik,mode)
DESCRIPTION

Mask a portion of one or more of the research keys:ip1,ip2,ip3,etiket


Authors: M. Lepine - M. Valin - 2000
ARGUMENTS

Input:
iun	unit number associated to the file
getmode	1: mode to get masks, 0: mode to set masks
Input/Output:
FSTMSQ	0 if no error, else error code
mip1	15 bit mask for vertical level (not applicable for FSTD2000)
mip2	15 bit mask for forecast hour (28 bit for FSTD2000)
mip3	12 bit mask for ip3 (user defined identifier) (28 bit for FSTD2000)
metiket	8 character mask for label (12 character for FSTD2000 files)


EXAMPLE
(in Fortran)

integer ier,iun,mip1,mip2,mip3,getmode,key
character*8 metiket     character*12 metiket
metiket = 'GLB*****'    metiket = 'GLB*********'
C to obtain all fields that have a label starting with GLB
ier = fstmsq( iun, mip1, mip2, mip3, metiket, getmode )
key = fstlis(....)

(in C)

int ier,iun,mip1,mip2,mip3,getmode,key;
char metiket[9];    char metiket[13];
/* to obtain all fields that have a label starting with GLB */
strcpy(metiket,"GLB*****");    strcpy(metiket,"GLB*********");
ier = c_fstmsq( iun, mip1, mip2, mip3, metiket, getmode);
key = c_fstlis(....)
/* to obtain all fields that have a label starting with ABCD */
ier = c_fstmsq( iun, mip1, mip2, mip3, "ABCD****", getmode);
key = c_fstmsq( iun, mip1, mip2, mip3, "ABCD********", getmode);
key = c_fstlis(....)

Return to product index