Date: Fri, 18 Aug 1995 17:08:47 -0600
From: lhartten@al.noaa.gov (Leslie Hartten)
Message-Id: <9508182308.AA28216@papeeha.al.noaa.gov>
To: ccm-users@ncar.UCAR.EDU
Subject: ezread & rdhst
Dear CCM Users,
I'm looking at the "Completely Unsupported" code ezread (found in
/ccm/proc/samples/ezread.sh) and rdhst (found via the Web, at
gopher://isis.cgd.ucar.edu/11/processor/samples/unsupported/rdhst.ccm2.sh).
The ezread code is the same as in the Processor Users' Guide, Appendix B11.
Both pieces of code say, "If you have any problems, don't call us, figure it
out yourself". Well, I've figured a lot of it out, and am hoping someone on
the list has figured out the rest or can provide a hint.
rdhst is more general, so I'll take my examples from it. There are the
following statements early on:
COMMON /HEADER/ IH(37),IFS(3,100), ! Integer header
1 CH(89),CFS(2,100), ! Character header
2 RH(2000) ! Real header
C
CHARACTER*8 CH, CFS
Then later, use is made of CFS(1,I), IFS(1,NUM), IFS(2,NUM), & IFS(3,NUM).
However, there are never any assignments to CFS or IFS, nor is there an
EQUIVALENCE statement! From later portions of the code coupled with the
header output, I've found that the following works for CFS:
DO 30 I=1,IH(16)
INDEX=IH(37)+2*(I-1)+0
CFS(1,I) = CH(INDEX)
30 CONTINUE
However, I do not see how to assign values to IFS. Anyone out there worked
through this already?
Cheers,
Leslie
-- Leslie M. Hartten CIRES, Univ. of Colorado email: lhartten@al.noaa.gov Campus Box 216 ^^^^^^^^^^^ new address!! Boulder CO 80309-0216 phone: (303)497-7052 fax: 497-5373