Kevin O'Sullivan wrote:
> ...If there are any of the 'dying breed'? out there...

HEY!  I resemble that remark...

*sigh*

Kevin,

Me thinks that your access options are not set to handle the
carriage control.  Review those options and that should fix
the problem.

HTH,
Chip Dorman
Greenfield/Kennametal


> Hi All,
>
> I have a small issue that I hope someone might be able to shed some light
> upon.
>
> I'm trying to get more familiar with Fortran, and was attempting to open a
> flat 80 byte permanent ascii file.
>
> I can get the file open ok, but when I come to print the lines to the
> screen, I seem to be missing the 1st character of each line.
>
> Given the following code :-
>
> ------------------------- SNIPPET -------------
>
>        INTEGER*4 RECLEN, RECBUFF, FSTAT, FNUM
>        CHARACTER*80 RECBUFF
>        DATA RECLEN /-80/
>
> (file opened prior to here OK)
>
>        FSTAT=FREAD(FNUM,RECBUFF,RECLEN)
>        DO WHILE (FSTAT .NE. 0)
>          PRINT '(A80)',RECBUFF
>          FSTAT=FREAD(FNUM,RECBUFF,RECLEN)
>        ENDDO
>
> ------------------------- SNIPPET -------------
>
> If I change the PRINT statement to A81, it cures the problem, although I'd
> rather I knew why it cured it :)
>
> If there are any of the 'dying breed'? out there, I'd really appreciate some
> info.
>
> Of course, it might be related to the FREAD intrinsic, whatever the
> language, and not just Fortran.
>
> Thanks (as ever),
>
> Kevin
>
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
> - Kevin O'Sullivan                        Cosworth Racing Limited,  -
> - Racing Systems Department               The Octagon,              -
> -                                         St James Mill Road,       -
> -                                         Northampton, England,     -
> -                                         NN5 5RA.                  -
> -                                         Tel: +44 (0) 1604 598488  -
> - mailto:[log in to unmask] Fax: +44 (0) 1604 598506  -
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
> The views expressed above are mine entirely and in no way represent
> those of my employer.
>
> ********************************************************************************
> 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]
>
> ********************************************************************************