HP3000-L Archives

January 2002, Week 2

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: FORTRAN 77 Frustrations
From:
"Harrington, Don" <[log in to unmask]>
Reply To:
Harrington, Don
Date:
Thu, 10 Jan 2002 08:29:54 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (101 lines) 
Paul;

That was it!  That buffer (along with two others) was not defined as
INTEGER, but as DIMENSION, so the conversion program didn't catch it.

Definitely something to watch for with my other conversions.

THANKS!  When and where do you want dinner?  :-)

Don Harrington
Sr. Systems Analyst
Facilities Applications Support
Shared Services Group
The Boeing Company
P.O. Box 3707 M/C 6C-AK
Seattle, WA  98124-2207
(v) 425-234-1145 (f) 425-234-0464 (p) 206-797-6360

The opinions expressed in this e-mail reflect those of the sender.  They do
not necessarily reflect the opinions of The Boeing Company unless
specifically stated otherwise.



-----Original Message-----
From: Paul H Christidis [mailto:[log in to unmask]]
Sent: Thursday, January 10, 2002 8:18 AM
To: Harrington, Don
Subject: RE: FORTRAN 77 Frustrations



Don,

I think your problem stems from the fact that "INTEGER" allocates 2 bytes
of storage in FORTRAN/66 but 4 bytes in FORTRAN/77.

You can change your "DIMENSION DESBUF(17)"  to "INTEGER*2 DESBUF(17)" or
use the $SHORT compiler directive to force the default size of integers and
logicals to 2 bytes.

Paul



Paul;

Here are the compiler options I am now using:

$STANDARD_LEVEL SYSTEM, FTN3000_66 LOGICALS on, HP3000_16 ALIGNMENT
$CONTROL LIST OFF, TABLES OFF, INIT on, HP3000_16 STRING_MOVE
$OPTION LOCALITY "FAC201"
MIGF77

I still get the error.  This is really driving me nuts!

I do have an IMPLICIT INTEGER statement in the code.

Don Harrington
Sr. Systems Analyst
Facilities Applications Support
Shared Services Group
The Boeing Company
P.O. Box 3707 M/C 6C-AK
Seattle, WA  98124-2207
(v) 425-234-1145 (f) 425-234-0464 (p) 206-797-6360

The opinions expressed in this e-mail reflect those of the sender.  They do
not necessarily reflect the opinions of The Boeing Company unless
specifically stated otherwise.



-----Original Message-----
From: Paul H Christidis [mailto:[log in to unmask]]
Sent: Wednesday, January 09, 2002 12:46 PM
To: Harrington, Don
Subject: Re: FORTRAN 77 Frustrations



Don,

What compiler directives are set in your code?

When, some years ago, I converted an application from FORTRAN/66 to 77 I
used the following settings in order to make the variable allocation rules
of FORTRAN/77 more in line with those of FORTRAN/66:

$STANDARD_LEVEL SYSTEM, FTN3000_66 LOGICALS on, HP3000_16 ALIGNMENT
$CONTROL LIST OFF, TABLES OFF, INIT on ,HP3000_16 STRING_MOVE

Are you by any chance using any 'implicit' data typing that could cause
'DESBUF(17)' to be allocated as not an integer array?

Regards
Paul Christidis

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2