From:	CRDGW2::CRDGW2::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX" 10-MAR-1991 09:15:27.24
To:	ARISIA::EVERHART
CC:	
Subj:	Re: Fortran COMMON in VAX Pascal, etc.???

From:	RELAY-INFO-VAX@CRVAX.SRI.COM@SMTP@CRDGW2
To:	Everhart@Arisia@MRGATE

Received:  by crdgw1.ge.com (5.57/GE 1.89)
	 id AA27649; Sun, 10 Mar 91 09:08:17 EST
Received: From DANPOST.UNI-C.DK by CRVAX.SRI.COM with TCP; Sun, 10 MAR 91 05:22:57 PST
Received: from vms2.uni-c.dk by danpost.uni-c.dk (5.65/4.7)
	id AA14390; Sun, 10 Mar 91 13:22:08 GMT
Date: Sun, 10 Mar 91 14:25 +0100
From: ISIS08@ecostat.aau.dk
Subject: Re: Fortran COMMON in VAX Pascal, etc.???
To: 00MJSTUM@BSUVAX1.BITNET, INFO-VAX@SRI.COM
Message-Id: <A993CE76EF9F0326B2@vms2.uni-c.dk>
X-Envelope-To: 00MJSTUM@BSUVAX1.BITNET, INFO-VAX@SRI.COM
X-Vms-To: IN::"00MJSTUM@BSUVAX1.BITNET"
X-Vms-Cc: IN::"INFO-VAX@SRI.COM"

> Is there a way to simulate the FORTRAN COMMON, um, command? in VAX Pascal or
> any other language using system services?  Specific help in VAX Pascal would
> _most_ appreciated...

VAX PASCAL has a special attribute for making FORTRAN COMMON blocks.
Declare a record like:

VAR
   comrec = [COMMON('ftnblk')] RECORD
               a,b,c : INTEGER;
            END;

Then it will "match" the following FORTRAN statements:

      INTEGER a,b,c
      COMMON /ftnblk/a,b,c

BTW I find FORTRAN a very good language for calling system services.
Me and PASCAL's argument-checking is not always the best friends.

                                                              Arne

Arne Vajhxj                             Internet: ISIS08@ECOSTAT.AAU.DK
Institute of Economics and Statistics   PSI:      DATAPAX.23830211371400::ISIS08
Aarhus University
Denmark