| VMS PVwave 3.10 - ASSOC variables and FORTRAN [message #463] |
Wed, 29 July 1992 02:34  |
Hugh D.R. Evans
Messages: 2
Registered: March 1992
|
Junior Member |
|
|
Hello,
I am trying to establish several ASSOC variables for unformatted
FORTRAN files under VMS.
The fortran files have sequential organisation and variable length
records (maximum length 82 bytes).
The equivalent PVwave record structure used is:
point = {orbit_point, $
Time: DOUBLE( 0.0), $
long: DOUBLE( 0.0), $
lat : DOUBLE( 0.0), $
height: DOUBLE( 0.0), $
POS : DBLARR( 3), $
VEL : DBLARR( 3) $
}
By opening the file (as specified in the manual) using:
WAVE> openu,1,'filename',/segmented ; the use/ommission of /seg has no effect.
WAVE> s = ASSOC(1,point)
WAVE> print,s
% Invalid file organization for ASSOC.
% Execution halted at $MAIN$ .
The manual does mention that *UNIX* unformatted fortran files are
incompatible with the ASSOC function, but no mention is made of
the *VMS* unformatted fortran files.
Any help with this problem would be greatly appreciated.
Many Thanks,
Hugh
ESTEC * Inet: hevans@estwm8.dnet.estec.esa.nl
P.O. Box 299 * or hevans@estec.esa.nl
2200 AG Noordwijk * SPAN: ESTCS1::HEVANS
The Netherlands * BITNET: HEVANS@ESTEC
|
|
|
|
| Re: VMS PVwave 3.10 - ASSOC variables and FORTRAN [message #465 is a reply to message #463] |
Wed, 29 July 1992 04:23  |
zawodny
Messages: 121
Registered: August 1992
|
Senior Member |
|
|
The ASSOC function is used only with fixed length records and direct access
files on VMS systems. Read the file with the structure via the READU command.
If you really want direct access to any record in the file you will probably
have to recreate the file or calculate the record position in the file and use
the POINT_LUN proceedure.
Good Luck
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- *-*-*-*-*-*-*-*-*-*
Joseph M. Zawodny (KO4LW) /\
NASA Langley Research Center \/ My opinion is only my own just as yours is
Hampton VA, 23665-5225 /\ your own. Remember that and we will all be
zawodny@arbd0.larc.nasa.gov \/ Happy.
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- *-*-*-*-*-*-*-*-*-*
|
|
|
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
