Return to I77test.st CVS log

Up to [Research Unix] / researchv10no / cmd / f2c

Annotation of researchv10no/cmd/f2c/I77test.st, revision 1.1

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.