OK, a couple of things.
1.) Fortran IO can put the carriage control before or after the line. You
can change this behavior with the UNITCONTROL intrinsic (an HP extension I
believe).
call UNITCONTROL(6,6) ! sets cc before line
call UNITCONTROL(6,7) ! puts cc after the line
2.) You can eliminate carriage control with a file equation:
FILE FTN06;NOCCTL
Each Fortran unit(1-99) converts to an MPE filename of FTN##, where ##
is the unit number. Unit 5 is the default for input and unit 6 is the
default for output. If you change your program to write to a different
unit, be sure set up the correct file equation.
3.) You can eliminate all of the Fortran I/O and use the HPFOPEN and FWRITE
intrinsics.
HTH,
Mark "A dying breed" Wonsil
4M Enterprises, Inc.
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]]On
Behalf Of Kevin O'Sullivan
Sent: Tuesday, August 01, 2000 9:07 AM
To: [log in to unmask]
Subject: Re: [HP3000-L] Fread Intrinsic & Fortran
Hi Kevin,
Tried that, and whilst it lets the first character print, it puts a blank
line after each one printed.
hmmmmm
tks,
Kevin
-----Original Message-----
From: Keven Miller [mailto:[log in to unmask]]
Sent: 01 August 2000 13:46
To: [log in to unmask]
Cc: [log in to unmask]
Subject: Re: [HP3000-L] Fread Intrinsic & Fortran
It's been awhile for me also, and only in FTN-66.
I would say change the format to (X,A80). The problem would be
CCTL on output.
FSTAT=FREAD(FNUM,RECBUFF,RECLEN)
DO WHILE (FSTAT .NE. 0)
PRINT '(X,A80)',RECBUFF
FSTAT=FREAD(FNUM,RECBUFF,RECLEN)
ENDDO
Keven Miller
[log in to unmask]
****************************************************************************
****
This email and any files transmitted with it are confidential and
intended solely for the use of the individual or entity to whom they
are addressed. If you have received this email in error please notify
the email administrator - [log in to unmask]
****************************************************************************
****
|