topwrite_oasis
Parameters
filename
in
required
varname
in
required
z2d
in
required
Keywords
I2
I4
I8
R4
APPEND
RECSIZE
TEMPORARY
ENDING
POSITION
Examples
write_oasis, fa2of, 'WEIGHTS5', weig
or in several call so save memory
ysz = 100L
recsz8 = 16L * jpio * jpjo * 8L
FOR i = 0L, jpjo-1L, ysz DO BEGIN
ii = (i+ysz-1L) < (jpjo-1L)
position = (4L + 8L + 4L + 4L)*(i NE 0) + 16L * jpio * i * 8L
weig = ....
write_oasis, fa2ou, 'WEIGHTS3', temporary(weig), /temporary, append = i NE 0, header = i EQ 0 $
, ending = ii EQ jpjo-1, recsize = recsz8, position = position
ENDFOR
Version history
Version
$Id: write_oasis.pro 332 2008-02-11 16:48:24Z smasson $
History
Sebastien Masson (smasson@lodyc.jussieu.fr)
July 01, 2002
Known issues
Restrictions
varname is automatically written as a "character*8"
by default z2d is written as an R8 array
Statistics
McCabe cyclic | 17 |
McCabe essential | 1 |
McCabe modular design | 1 |