Return to nmlist.f CVS log

Up to [CSRG BSD Unix] / 43BSD / usr.lib / libI77 / test

Annotation of 43BSD/usr.lib/libI77/test/nmlist.f, revision 1.1

1.1     ! root        1:        call tstil
        !             2:        call tstch
        !             3:        call tstrd
        !             4:        call tstcmp
        !             5:        end
        !             6:        subroutine tstil
        !             7: c              test integers and logicals
        !             8:        integer ivec(8)
        !             9:        logical lvec(6), l1, l2
        !            10: 
        !            11:        namelist /nml/ key, ii, ivec, l1, l2, lvec
        !            12:        data ii/-1/, ivec/8*2/, lvec/6*.false./, l1/.false./, l2/.false./
        !            13: 
        !            14:        print '(//"test integers and logicals...")'
        !            15: 10     continue
        !            16:        read(*,nml)
        !            17:        print nml
        !            18:        if(key.lt.0) return
        !            19:        go to 10
        !            20:        end
        !            21: 
        !            22:        subroutine tstch
        !            23:        character ch, chvec(12), str*10, strv(-1:4)*5
        !            24:        namelist /nmc/ key, ch, chvec, str, strv
        !            25:        data ch/'+'/, chvec/12*'-'/, str/'+..-..-..+'/, strv/6*':...:'/
        !            26: 
        !            27:        print '(//"test characters and strings...")'
        !            28: 10     continue
        !            29:        read(*,nmc)
        !            30:        print nmc
        !            31:        if(key.lt.0) return
        !            32:        go to 10
        !            33:        
        !            34:        end
        !            35: 
        !            36:        subroutine tstrd
        !            37:        real r, rvec(10)
        !            38:        double precision d, darr(-10:-8, 0:1, 1:2)
        !            39:        namelist /nmrd/ key, r,d, rvec, darr
        !            40: 
        !            41:        print '(//"test reals and doubles...")'
        !            42: 10     continue
        !            43:        read(*,nmrd)
        !            44:        print nmrd
        !            45:        if(key.lt.0) return
        !            46:        go to 10
        !            47:        
        !            48:        end
        !            49: 
        !            50:        subroutine tstcmp
        !            51:        complex c, cvec(6)
        !            52:        double complex z, zvec(6)
        !            53:        namelist /nmcmp/ key, c,cvec,z,zvec
        !            54: 
        !            55:        print '(//"test complex and double complex...")'
        !            56: 10     continue
        !            57:        read(*,nmcmp)
        !            58:        print nmcmp
        !            59:        if(key.lt.0) return
        !            60:        go to 10
        !            61:        
        !            62:        end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.