> From ncarg-talk-owner@ncar.UCAR.EDU Wed Nov 15 05:33:55 1995
> X-Sender: friedman@acf2.nyu.edu
> Mime-Version: 1.0
Ed (friedman@acf2.NYU.EDU) inquired:
> A user would like to know where to find the definitions for
> the COMMON blocks, internal parameters for STRMLN in version 3.1.
I happened to have version 3.1.3.a.3 lying around in my archives,
so I looked this up.
I found most of the internal parameters in common blocks STR02 and
STR03 in strmln.f. Their definitions are:
COMMON /STR02/ EXT , SIDE , XLT , YBT
COMMON /STR03/ INITA , INITB , AROWL , ITERP , ITERC , IGFLG
1 , IMSG , UVMSG , ICYC , DISPL , DISPC , CSTOP
The other three (UXSML, NCHK, and ISKIP) are in routine drwstr.f.
The first, UXSML, is in common block STR04:
COMMON /STR04/ XCHK(NCHK) ,YCHK(NCHK) , NUMCHK , UXSML
NUMCHK is set from the parameter NCHK in drwstr:
PARAMETER (NCHK=750)
.
.
.
NUMCHK = NCHK
Comments in drwstr.f explain XCHK AND YCHK as:
C . THE XCHK AND YCHK ARRAYS SERVE AS A CIRCULAR LIST. THEY
C . ARE USED TO PREVENT LINES FROM CROSSING ONE ANOTHER.
Both ISKIP and UXSML are machine dependent. This dependency
is handled in drwstr.f as follows:
ISKIP = I1MACH(5) - 2
UXSML = R1MACH(3) * DISPL
Hope this helps.
Don Eliason
This archive was generated by hypermail 2b29 : Wed Jun 28 2000 - 09:45:34 MDT