HP3000-L Archives

August 2000, Week 1

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: Fread Intrinsic & Fortran
From:
Keven Miller <[log in to unmask]>
Reply To:
Keven Miller <[log in to unmask]>
Date:
Tue, 1 Aug 2000 06:45:52 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (14 lines) 
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]

ATOM RSS1 RSS2