RMNLIB

(FSTECR)

FSTD

 

INTEGER FUNCTION FSTECR( field, work, npak, iun, dateo, deet, npas, ni,
                  nj,nk, ip1, ip2, ip3, typvar, nomvar, etiket, grtyp,
                  ig1, ig2, ig3, ig4, datyp, rewrit)

INTEGER FUNCTION FSTECR_S( field, work, npak, iun, dateo, deet, npas, ni,
                  nj,nk, ip1, ip2, ip3, typvar, nomvar, etiket, grtyp,
                  ig1, ig2, ig3, ig4, 7, rewrit)
datyp 7 is the only valid datyp for fstecr_s function
DESCRIPTION

Writes a record to RPN standard file. 


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

Input:
field data field to write to the file or a character string in the case of fstecr_s
work work array with a dimension of (120+ni*nj*max(1,nk)*nbits+bitmot-1)/bitmot where
    bitmot = number of bits per machine word
    nbits = number of bits kept per item
    if npak = 0 or 1, dimension = ni*nj*max(1,nk)
FSTD2000: Declare as work(1) for dummy argument as this is allocated within the function itself
npak a negative value gives the number of bits kept for the elements of the field (positive packing ratio is deprecated) 
iun unit number associated to the file
dateo date time stamp
deet length of a time step in seconds
npas time step number
ni dimension 1 of the data field
nj dimension 2 of the data field
nk dimension 3 of the data field
ip1 vertical level
ip2 forecast hour
ip3 user defined identifier
typvar type of field
nomvar variable name
etiket label
grtyp type of geographical projection
ig1 first grid descriptor
ig2 second grid descriptor
ig3 third grid descriptor
ig4 fourth grid descriptor
datyp data type of the elements
0: binary, transparent
1: floating point
2: unsigned integer
3: character (R4A in an integer)
4: signed integer
5: IEEE floating point
6: floating point (special format, 16 bit, reserved for use with the compressor)
7: character string   (ni,nj,nk must be: ni = number of characters in the string, nj=1, nk=1)  valid only with fstecr_s
8: complex IEEE
130: compressed integer
134: floating point
rewrit rewrite flag (true=rewrite existing record, false=append)
Output:
FSTECR 0 if no error, else error code 

EXAMPLE
Click here for other argument declarations
(in Fortran)
real work(1)
ier = fstecr( field, work, npak, iun, dateo, deet, npas, ni,
                  nj,nk, ip1, ip2, ip3, typvar, nomvar, etiket, grtyp,
                  ig1, ig2, ig3, ig4, datyp, rewrit)
(in C)
float work[ ];
ier = c_fstecr( field, work, npak, iun, dateo, deet, npas, ni,
                  nj,nk, ip1, ip2, ip3, typvar, nomvar, etiket, grtyp,
                  ig1, ig2, ig3, ig4, datyp, rewrit);


Return to product index