Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!mit-eddie!ll-xn!ames!sdcsvax!ucbvax!TE.CC.CMU.EDU!DL01
From: DL01@TE.CC.CMU.EDU (David B. Love)
Newsgroups: comp.os.vms
Subject: RSX11M - uVax fortran incompat.
Message-ID: <12334615484.41.DL01@TE.CC.CMU.EDU>
Date: Mon, 14-Sep-87 15:46:30 EDT
Article-I.D.: TE.12334615484.41.DL01
Posted: Mon Sep 14 15:46:30 1987
Date-Received: Fri, 18-Sep-87 06:26:29 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
Lines: 39



The following F77 program excerpt used to work fine on a PDP11/44 running
RSX11M+, but does not on our uVax running uVMS 4.4.   Any thoughts ?


* Main Program 

	CALL A
	CALL B

* Subroutines

	SUBROUTINE A
		COMMON Q1(81), Q2(81)
		Q1()=...                 - GETS VALUE 0.0
		Q2()=...		 - GETS VALUE 0.7
		RETURN


	SUBROUTINE B
		COMMON Q1(81), Q2(81)
		H1=Q1(N)		- RETURNS AS = 2.7 FOR SOME
		H2=Q2(N)		  UNKNOWN REASON
		RETURN


    For some unknown reason, between storing the common area values in
subroutine A, and recalling them in subroutine B, the values changed.
We were able to fix this problem by putting subrouting A and B
together into one Subroutine AB.  I know its solved now, but I would
like to know why I have to "un-modularize" my programs.  Thanks for
any help people have.

David B. Love
DL01@TE.CMU.CC.EDU


---K=6,