Re: Common block definitions for Strmln, Version 3.1 NCAR

From: Don Eliason (eliason@XXXXXX)
Date: Wed Nov 15 1995 - 10:08:08 MST


> 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