![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to I77test.st CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / f2c|
Return to I77test.st CVS log | Up to [Research Unix] / researchv10no / cmd / f2c |
1.1 root 1: ./ ADD NAME=in TIME=631757377
2: d
3: &nd da=1,2/
4: d=2 n=j
5: &nj j=1,ja=2,3
6: ./ ADD NAME=in1 TIME=631756134
7: &nml ia(4,6,7:11) = 7,8,9,10/
8: &nml ia(2,4,7:10:2) = 333,444 i=-1/
9: &nml c(3:4) = "def"/
10: &nml ia(2:3,4:5, 7:8) = 1,2,3,4,5,6,7,8 x=72/
11: &nml ia(3:3,4:5, 7:8) = 1,2,3,4 x=72/
12: ./ ADD NAME=x.f TIME=631757750
13: integer i, ia(2)
14: double precision d, da(2)
15: character*7 h, ha(2)
16: logical L, la(2)
17: real r, ra(2)
18: integer*2 j, ja(2)
19: complex c, ca(2)
20: double complex z, za(2)
21: character*1 n
22: namelist /ni/ i, ia, n
23: namelist /nd/ d, da, n
24: namelist /nh/ h, ha, n
25: namelist /nr/ r, ra, n
26: namelist /nj/ j, ja, n
27: namelist /nc/ c, ca, n
28: namelist /nz/ z, za, n
29: namelist /nl/ l, la, n
30: 1 write(*,*) 'enter n (one of i,d,h,r,j,c,z):'
31: read(*,*,end=999) n
32: 10 if (n .eq. 'i') goto 20
33: if (n .eq. 'd') goto 30
34: if (n .eq. 'h') goto 40
35: if (n .eq. 'r') goto 50
36: if (n .eq. 'j') goto 60
37: if (n .eq. 'c') goto 70
38: if (n .eq. 'z') goto 80
39: if (n .eq. 'l') goto 90
40: goto 1
41: 20 read(*,ni,end=999)
42: write(*,ni)
43: goto 10
44: 30 read(*,nd,end=999)
45: write(*,nd)
46: goto 10
47: 40 read(*,nh,end=999)
48: write(*,nh)
49: goto 10
50: 50 read(*,nr,end=999)
51: write(*,nr)
52: goto 10
53: 60 read(*,nj,end=999)
54: write(*,nj)
55: goto 10
56: 70 read(*,nc,end=999)
57: write(*,nc)
58: goto 10
59: 80 read(*,nz,end=999)
60: write(*,nz)
61: goto 10
62: 90 read(*,nl,end=999)
63: write(*,nl)
64: goto 10
65: 999 end
66: ./ ADD NAME=x0.f TIME=631570454
67: integer i, ia(2:4, 4:6, 7:10)
68: double precision x, xa(2,3)
69: character*7 c, ca(3,4)
70: namelist /nml/ i, ia, x, xa, c, ca
71: 10 read(*,nml,end=20)
72: write(*,nml)
73: goto 10
74: 20 end
75: ./ ADD NAME=y.f TIME=631640584
76: character*4 x, y*8
77: 10 read(*,*,end=20) x,y
78: write(*,*) 'x = ', x, '; y = ', y
79: goto 10
80: 20 end
81: ./ ENDUP
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.