1*43976Sbostic 2*43976Sbostic 3*43976Sbostictest integers and logicals... 4*43976Sbostic &nml key= 0, ii= -1, ivec= 2, 2, 2, 2, 2, 2, 2, 2, l1= f, l2= f 5*43976Sbostic , lvec= f, f, f, f, f, f 6*43976Sbostic &end 7*43976Sbostic &nml key= 1, ii= 10, ivec= 2, 2, 2, 2, 2, 2, 2, 2, l1= f, l2= f 8*43976Sbostic , lvec= f, f, f, f, f, f 9*43976Sbostic &end 10*43976Sbostic &nml key= 2, ii= 10, ivec= 8, 8, 8, 7, 7, -238, 99, 98, l1= f, l2= 11*43976Sbostic f, lvec= f, f, f, f, f, f 12*43976Sbostic &end 13*43976Sbostic &nml key= 3, ii= 10, ivec= -2, 7, 7, 7, 7, -84, 13, 5, l1= f, l2= 14*43976Sbostic f, lvec= f, f, f, f, f, f 15*43976Sbostic &end 16*43976Sbostic &nml key= 4, ii= 10, ivec= -2, 7, 7, 6, 7, -84, 13, 5, l1= f, l2= 17*43976Sbostic f, lvec= f, f, f, f, f, f 18*43976Sbostic &end 19*43976Sbostic &nml key= 5, ii= 10, ivec= -2, 8, 9, 6, 7, -84, -909, -945, l1= f 20*43976Sbostic , l2= f, lvec= f, f, f, f, f, f 21*43976Sbostic &end 22*43976Sbostic &nml key= 6, ii= 10, ivec= -2, 8, 9, 6, 7, -84, -909, -945, l1= f 23*43976Sbostic , l2= t, lvec= t, t, t, t, t, t 24*43976Sbostic &end 25*43976Sbostic &nml key= 7, ii= 10, ivec= -2, 8, 9, 6, 7, -84, -909, -945, l1= t 26*43976Sbostic , l2= f, lvec= f, f, f, f, f, f 27*43976Sbostic &end 28*43976Sbostic &nml key= 8, ii= 10, ivec= -2, 8, 9, 6, 7, -84, -909, -945, l1= t 29*43976Sbostic , l2= f, lvec= t, f, t, t, f, t 30*43976Sbostic &end 31*43976Sbostic &nml key= 9, ii= 10, ivec= -2, 8, 9, 6, 7, -84, -909, -945, l1= t 32*43976Sbostic , l2= f, lvec= t, f, t, t, f, t 33*43976Sbostic &end 34*43976Sbostic &nml key= -999, ii= 10, ivec= -2, 8, 9, 6, 7, -84, -909, -945, l1= 35*43976Sbostic t, l2= f, lvec= t, f, t, t, f, t 36*43976Sbostic &end 37*43976Sbostic 38*43976Sbostic 39*43976Sbostictest characters and strings... 40*43976Sbostic &nmc key= 0, ch='+', chvec='-','-','-','-','-','-','-','-','-','-','-','-' 41*43976Sbostic , str='+..-..-..+', strv=':...:',':...:',':...:',':...:',':...:',':...:' 42*43976Sbostic &end 43*43976Sbostic &nmc key= 0, ch='f', chvec='a','a','a','a','a','b','b','c','c','c','c','c' 44*43976Sbostic , str='+..-..-..+', strv=':...:',':...:',':...:',':...:',':...:',':...:' 45*43976Sbostic &end 46*43976Sbostic &nmc key= 0, ch='|', chvec='a','c','?','?','?','?','?','?','?','?','?','?' 47*43976Sbostic , str='ABCDEFGHIJ', strv='A1234','B1234','C1234','D1234','E1234','F1234' 48*43976Sbostic &end 49*43976Sbostic &nmc key= 0, ch='|', chvec='a','c','?','?','?','?','?','?','?','?','?','?' 50*43976Sbostic , str='ABCDEFGHIJ', strv='A1234','abc ','abc ','D1234','E1234','hi ' 51*43976Sbostic &end 52*43976Sbostic &nmc key= -999, ch='|', chvec='a','c','?','?','?','?','?','?','?','?','?', 53*43976Sbostic '?', str='ABCDEFGHIJ', strv='A1234','abc ','abc ','D1234','E1234','hi ' 54*43976Sbostic &end 55*43976Sbostic 56*43976Sbostic 57*43976Sbostictest reals and doubles... 58*43976Sbostic &nmrd key= 0, r= 0., d= 0., rvec= 0., 0., 0., 0., 0., 0., 0., 0., 59*43976Sbostic 0., 0., darr= 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0. 60*43976Sbostic &end 61*43976Sbostic &nmrd key= 1, r= 1.50000e-38, d= 0., rvec= 0., 0., 0., 0., 0., 0., 62*43976Sbostic 0., 0., 0., 0., darr= 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 63*43976Sbostic 0., 0. 64*43976Sbostic &end 65*43976Sbostic &nmrd key= 2, r= 2.50000e-28, d= 0., rvec= 0., 0., 0., 0., 0., 0., 66*43976Sbostic 0., 0., 0., 0., darr= 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 67*43976Sbostic 0., 0. 68*43976Sbostic &end 69*43976Sbostic &nmrd key= 3, r= 2.50000e-28, d= 3.5000000000000d-38, rvec= 0., 0., 70*43976Sbostic 0., 0., 0., 0., 0., 0., 0., 0., darr= 0., 0., 0., 0., 0., 0., 71*43976Sbostic 0., 0., 0., 0., 0., 0. 72*43976Sbostic &end 73*43976Sbostic &nmrd key= 4, r= 2.50000e-28, d= 4.5000000000000d-28, rvec= 0., 0., 74*43976Sbostic 0., 0., 0., 0., 0., 0., 0., 0., darr= 0., 0., 0., 0., 0., 0., 75*43976Sbostic 0., 0., 0., 0., 0., 0. 76*43976Sbostic &end 77*43976Sbostic &nmrd key= 5, r= 2.50000e-28, d= 4.5000000000000d-28, rvec= -5.12346, 78*43976Sbostic -5.12346, -5.12346, -5.12346, -5.12346, -5.12346, -5.12346, -5.12346, 79*43976Sbostic -5.12346, -5.12346, darr= 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 80*43976Sbostic 0., 0. 81*43976Sbostic &end 82*43976Sbostic &nmrd key= 6, r= 2.50000e-28, d= 4.5000000000000d-28, rvec= -5.12346, 83*43976Sbostic -5.12346, -5.12346, -5.12346, -5.12346, -5.12346, -5.12346, -5.12346, 84*43976Sbostic -5.12346, -5.12346, darr= -5.1234567890100, -5.1234567890100, 85*43976Sbostic -5.1234567890100, -5.1234567890100, -5.1234567890100, -5.1234567890100, 86*43976Sbostic -5.1234567890100, -5.1234567890100, -5.1234567890100, -5.1234567890100, 87*43976Sbostic 0., 0. 88*43976Sbostic &end 89*43976Sbostic &nmrd key= 6, r= 2.50000e-28, d= 4.5000000000000d-28, rvec= -5.12346, 90*43976Sbostic -5.12346, -5.12346, -5.12346, -5.12346, -5.12346, -5.12346, -5.12346, 91*43976Sbostic -5.12346, -5.12346, darr= -3.1415001234568, -3.1415001234568, 92*43976Sbostic -3.1415001234568, -3.1415001234568, -3.1415001234568, -3.1415001234568, 93*43976Sbostic -3.1415001234568, -3.1415001234568, -3.1415001234568, -3.1415001234568, 94*43976Sbostic -3.1415001234568, -3.1415001234568 95*43976Sbostic &end 96*43976Sbostic &nmrd key= 7, r= 2.50000e-28, d= 4.5000000000000d-28, rvec= -5.12346, 97*43976Sbostic -5.12346, -5.12346, -5.12346, -5.12346, -5.12346, -5.12346, -5.12346, 98*43976Sbostic -5.12346, -5.12346, darr= -3.1415001234568, 3.6000000000000, 99*43976Sbostic -3.1415001234568, -3.1415001234568, -3.1415001234568, -3.1415001234568, 100*43976Sbostic -3.1415001234568, -3.1415001234568, -3.1415001234568, -3.1415001234568, 101*43976Sbostic -3.1415001234568, -3.1415001234568 102*43976Sbostic &end 103*43976Sbostic &nmrd key= 8, r= 2.50000e-28, d= 4.5000000000000d-28, rvec= -5.12346, 104*43976Sbostic -5.12346, -5.12346, -5.12346, -5.12346, -5.12346, -5.12346, -5.12346, 105*43976Sbostic -5.12346, -5.12346, darr= -3.1415001234568, 3.6000000000000, 106*43976Sbostic 3.3000000000000, 3.4000000000000, 3.5000000000000, -3.1415001234568, 107*43976Sbostic -3.1415001234568, -3.1415001234568, -3.1415001234568, -3.1415001234568, 108*43976Sbostic -3.1415001234568, -3.1415001234568 109*43976Sbostic &end 110*43976Sbostic &nmrd key= -999, r= 2.50000e-28, d= 4.5000000000000d-28, rvec= -5.12346, 111*43976Sbostic -5.12346, -5.12346, -5.12346, -5.12346, -5.12346, -5.12346, -5.12346, 112*43976Sbostic -5.12346, -5.12346, darr= -3.1415001234568, 3.6000000000000, 113*43976Sbostic 3.3000000000000, 3.4000000000000, 3.5000000000000, -3.1415001234568, 114*43976Sbostic -3.1415001234568, -3.1415001234568, -3.1415001234568, -3.1415001234568, 115*43976Sbostic -3.1415001234568, -3.1415001234568 116*43976Sbostic &end 117*43976Sbostic 118*43976Sbostic 119*43976Sbostictest complex and double complex... 120*43976Sbostic &nmcmp key= 0, c= ( 0., 0.), cvec= ( 0., 0.), ( 0., 0.), 121*43976Sbostic ( 0., 0.), ( 0., 0.), ( 0., 0.), ( 0., 0.), z= 122*43976Sbostic ( 0., 0.), zvec= ( 0., 0.), ( 0., 0.), 123*43976Sbostic ( 0., 0.), ( 0., 0.), ( 0., 0.), 124*43976Sbostic ( 0., 0.) 125*43976Sbostic &end 126*43976Sbostic &nmcmp key= 0, c= ( 1.20000e+38, 1.30000e-34), cvec= 127*43976Sbostic ( 0.100000, 0.200000), ( 0.100000, 0.200000), ( 0.100000, 0.200000), 128*43976Sbostic ( 0., 0.), ( 0., 0.), ( 0., 0.), z= 129*43976Sbostic ( 0., 0.), zvec= ( 0., 0.), ( 0., 0.), 130*43976Sbostic ( 0., 0.), ( 0., 0.), ( 0., 0.), 131*43976Sbostic ( 0., 0.) 132*43976Sbostic &end 133*43976Sbostic &nmcmp key= 0, c= ( 1.20000e+38, 1.30000e-34), cvec= 134*43976Sbostic ( 0.100000, 0.200000), ( 0.100000, 0.200000), ( 0.100000, 0.200000), 135*43976Sbostic ( 0., 0.), ( 0., 0.), ( 0., 0.), z= 136*43976Sbostic ( 1.2000000000000d+38, 1.3000000000000d-34), zvec= 137*43976Sbostic ( 0.10000000000000, 0.20000000000000), 138*43976Sbostic ( 0.10000000000000, 0.20000000000000), 139*43976Sbostic ( 0.10000000000000, 0.20000000000000), 140*43976Sbostic ( 0., 0.), ( 0., 0.), ( 0., 0.) 141*43976Sbostic &end 142*43976Sbostic &nmcmp key= 0, c= ( 1.20000e+38, 1.30000e-34), cvec= 143*43976Sbostic ( 0.100000, 0.200000), ( 1.00000, 2.00000), ( 0.100000, 0.200000), 144*43976Sbostic ( 0., 0.), ( 0., 0.), ( 0., 0.), z= 145*43976Sbostic ( 1.2000000000000d+38, 1.3000000000000d-34), zvec= 146*43976Sbostic ( 0.10000000000000, 0.20000000000000), 147*43976Sbostic ( 0.10000000000000, 0.20000000000000), 148*43976Sbostic ( 0.10000000000000, 0.20000000000000), 149*43976Sbostic ( 1.1000000000000, 2.1000000000000), 150*43976Sbostic ( 0., 0.), ( 0., 0.) 151*43976Sbostic &end 152*43976Sbostic &nmcmp key= -999, c= ( 1.20000e+38, 1.30000e-34), cvec= 153*43976Sbostic ( 0.100000, 0.200000), ( 1.00000, 2.00000), ( 0.100000, 0.200000), 154*43976Sbostic ( 0., 0.), ( 0., 0.), ( 0., 0.), z= 155*43976Sbostic ( 1.2000000000000d+38, 1.3000000000000d-34), zvec= 156*43976Sbostic ( 0.10000000000000, 0.20000000000000), 157*43976Sbostic ( 0.10000000000000, 0.20000000000000), 158*43976Sbostic ( 0.10000000000000, 0.20000000000000), 159*43976Sbostic ( 1.1000000000000, 2.1000000000000), 160*43976Sbostic ( 0., 0.), ( 0., 0.) 161*43976Sbostic &end 162