DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »tfread«

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦this⟧ »tfread« 

TextFile

mode list.yes
;FORTRAN free format input procedure programmed in ALGOL
;Anders Lindgård 1981-12-9

fread=assign read
lookup fread read

freadb=set 0 disc1
ifreadi=set 0 disc1
freadr=set 0 disc1
freadra=set 0 disc1

freadb=algol list.yes
external
boolean procedure freadb(in);
zone in;
begin
  integer c,char;
  c:=readchar(in,char);
  freadb:=char='T' or char='t';
end freadb;
end;

ifreadi=algol list.yes
external
integer procedure freadi(in);
zone in;
begin
  integer i,c,char;
  c:=read(in,i);
  freadi:=i;
end freadi;
end;

freadr=algol list.yes
external
real procedure freadr(in);
zone in;
begin
  integer c,char;
  real r;
  c:=read(in,r);
  freadr:=r;
end freadr;
end;


freadra=algol list.yes
external 
procedure freadra(in,a,n);
value n; integer n;
real array a;
zone in;
begin
  integer i;
  for i:=1 step 1 until n do read(in,a(i));
end freadra;
end;
;freadb=compresslib freadi freadr freadra
scope project.disc1 fread freadb ifreadi freadr freadra
testfread=fortran   list.yes
      program test_fortran
      external in,out; zone in,out
      external freadb; logical freadb
      external freadra
      logical b
      real table(10)
      i=0
      r=0.0
      b=.false.
      i=ifreadi(in)
      r=freadr(in)
      b=freadb(in)
      write(out,1) i,r,b
1     format(x,i5,5x,f8.5,5x,l5)
      call freadra(in,table,4)
      write(out,2) (table(i),i=1,4)
2     format(/,5f12.8)
      stop
      end
/
mode list.no
▶EOF◀