Note: constructors like "(/1,2/)" allowed in fc9.5 b(2,3) 1 3 5 2 4 6 isum=sum(b)= 21 isum = sum("b(:,1:3:2)")= 14 isum = sum("b(:,1:3:2)")= 14 CAUTION: "dim=", etc., markers= NOT allowed in intrinsics s2 = sum(b,2)= 9 12 s3 = sum(b,1)= 3 7 11 CAUTION: "mask=" marker= STILL not allowed either. s3 = sum(b,1,"b.gt.3") = 0 4 11 s3 = sum(b,1,"b.gt.3") = 0 4 11 s2 = sum(b,2,b.gt.3) = 5 10 CAUTION: If "sum(array[dim[,mask]])", CANT use zero (0) for [dim] for whole array when there is a mask. imax = maxval(b)= 6 s3 = maxval(b,1)= 2 4 6 s2 = maxval(b,2)= 5 6 imin = minval(b)= 1 s2 = product(b,2)= 15 48 idot = dot_product(b(1,:),b(2,:))= 44 CAUTION: Array syntax not allowed in actual arguments. c=matmul(b(:,1:2),b(:,2:3))= 15 23 22 34 ct = transpose(b)= 1 2 3 4 5 6 a = cshift(a,1,2)= 3 5 1 4 6 2 a = cshift(b,-1,2)= 5 1 3 6 2 4 a = cshift(b,(/1,2/),2)= 3 5 1 6 2 4 CAUTION: array sections not allowed in print u = laplace-shift(u)= ; iter= 4730; av-diff = 0.499E-05 2.0000 2.0000 2.0000 2.0000 2.0000 2.0000 2.0000 1.0000 2.0000 1.9762 1.9479 1.9090 1.8491 1.7440 1.5208 1.0000 2.0000 1.9573 1.9068 1.8387 1.7387 1.5836 1.3402 1.0000 2.0000 1.9469 1.8844 1.8014 1.6836 1.5141 1.2817 1.0000 2.0000 1.9469 1.8844 1.8014 1.6836 1.5141 1.2817 1.0000 2.0000 1.9573 1.9068 1.8387 1.7387 1.5836 1.3402 1.0000 2.0000 1.9762 1.9479 1.9090 1.8491 1.7440 1.5208 1.0000 2.0000 2.0000 2.0000 2.0000 2.0000 2.0000 2.0000 1.0000 a = eoshift(b,-1,0,1)= 0 0 0 1 3 5 a = eoshift(b,(/-1,0/),(/7,8/),2)= 7 1 3 2 4 6 a = eoshift(b,2,2)= 5 0 0 6 0 0 as = 2 3 4 5 cs = spread(as,1,3)= 2 3 4 5 2 3 4 5 2 3 4 5 at = 2 3 4 cs = spread(at,2,4)= 2 2 2 2 3 3 3 3 4 4 4 4 f90 uniform random_number(): xran = 0.5801136486 and f90 subroutine random_number() uniform random array: 0.9505127350 0.3056509439 0.0986253383 0.6938844384 0.7863714253 0.6891007107 0.2765484551 0.9344770142 0.2976202640 0.3826622387 0.6204460278 0.2120929553 0.4536999003 0.1329027055 0.0835029668 0.1306527482 0.0062619416 0.8318579032 0.9903771206 0.8625969805 0.2757364264 0.5829797958 0.9793469434 0.8189092940 UNICOS function ranf() uniform random array: 0.5407187129 0.0187994091 0.3141160167 0.7651821004 0.9415271082 0.2893071356 0.5849975196 0.9030257778 0.8866798463 0.4966670053 0.3964840582 0.8718218141 0.9311052262 0.5954839343 0.2096123584 0.8881281192 0.4641396487 0.6280308383 0.4467249313 0.4578495774 0.2349011311 0.7635970977 0.5911920675 0.4438340178 STOP executed at line 222 in Fortran routine 'F90TEST' CPU: 1.747s, Wallclock: 0.593s, 21.0% of 14-CPU Machine Memory HWM: 989173, Stack HWM: 37793, Stack segment expansions: 0