Lines Matching refs:var_rank
181 if (ndims .ne. var_rank(i))
191 err = index2indexes(j, var_rank(i), var_shape(1,i),
195 expect = hash4( var_type(i), var_rank(i), index,
217 do 4, d = 1, var_rank(i)
282 if (ndims .ne. var_rank(i))
292 err = index2indexes(j, var_rank(i), var_shape(1,i),
296 expect = hash4( var_type(i), var_rank(i), index,
318 do 4, d = 1, var_rank(i)
384 if (ndims .ne. var_rank(i))
394 err = index2indexes(j, var_rank(i), var_shape(1,i),
398 expect = hash4( var_type(i), var_rank(i), index,
420 do 4, d = 1, var_rank(i)
485 if (ndims .ne. var_rank(i))
495 err = index2indexes(j, var_rank(i), var_shape(1,i),
499 expect = hash4( var_type(i), var_rank(i), index,
521 do 4, d = 1, var_rank(i)
586 if (ndims .ne. var_rank(i))
596 err = index2indexes(j, var_rank(i), var_shape(1,i),
600 expect = hash4( var_type(i), var_rank(i), index,
622 do 4, d = 1, var_rank(i)
686 if (ndims .ne. var_rank(i))
696 err = index2indexes(j, var_rank(i), var_shape(1,i),
700 expect = hash4( var_type(i), var_rank(i), index,
722 do 4, d = 1, var_rank(i)
1359 do 2, j = 1, var_rank(i)
1369 do 3, j = 1, var_rank(i)
1385 err = index2indexes(j, var_rank(i), var_shape(1,i),
1389 value = char(int(hash_text(var_type(i),var_rank(i),
1449 do 2, j = 1, var_rank(i)
1459 do 3, j = 1, var_rank(i)
1475 err = index2indexes(j, var_rank(i), var_shape(1,i),
1479 value = hash_int1(var_type(i),var_rank(i),
1540 do 2, j = 1, var_rank(i)
1550 do 3, j = 1, var_rank(i)
1566 err = index2indexes(j, var_rank(i), var_shape(1,i),
1570 value = hash_int2(var_type(i),var_rank(i),
1630 do 2, j = 1, var_rank(i)
1640 do 3, j = 1, var_rank(i)
1656 err = index2indexes(j, var_rank(i), var_shape(1,i),
1660 value = hash_int(var_type(i),var_rank(i),
1719 do 2, j = 1, var_rank(i)
1729 do 3, j = 1, var_rank(i)
1745 err = index2indexes(j, var_rank(i), var_shape(1,i),
1749 value = hash_real(var_type(i),var_rank(i),
1808 do 2, j = 1, var_rank(i)
1818 do 3, j = 1, var_rank(i)
1834 err = index2indexes(j, var_rank(i), var_shape(1,i),
1838 value = hash_double(var_type(i),var_rank(i),
1906 do 3, j = 1, var_rank(i)
1911 err = index2indexes(j, var_rank(i), var_shape(1,i),
1916 + var_rank(i),
1929 + var_dimid(var_rank(i),i) .ne. RECDIM)
1954 if (var_rank(i) .ge. 1 .and.
1955 + var_dimid(var_rank(i),i) .eq. RECDIM) then
1958 if (var_rank(i) .gt. MAX_RANK)
1965 do 6 j = 1, var_rank(i)
1970 err = index2indexes(j, var_rank(i), var_shape(1,i),
1975 + var_rank(i),
2046 do 3, j = 1, var_rank(i)
2051 err = index2indexes(j, var_rank(i), var_shape(1,i),
2056 + var_rank(i),
2069 + var_dimid(var_rank(i),i) .ne. RECDIM)
2094 if (var_rank(i) .ge. 1 .and.
2095 + var_dimid(var_rank(i),i) .eq. RECDIM) then
2098 if (var_rank(i) .gt. MAX_RANK)
2105 do 6 j = 1, var_rank(i)
2110 err = index2indexes(j, var_rank(i), var_shape(1,i),
2115 + var_rank(i),
2187 do 3, j = 1, var_rank(i)
2192 err = index2indexes(j, var_rank(i), var_shape(1,i),
2197 + var_rank(i),
2210 + var_dimid(var_rank(i),i) .ne. RECDIM)
2235 if (var_rank(i) .ge. 1 .and.
2236 + var_dimid(var_rank(i),i) .eq. RECDIM) then
2239 if (var_rank(i) .gt. MAX_RANK)
2246 do 6 j = 1, var_rank(i)
2251 err = index2indexes(j, var_rank(i), var_shape(1,i),
2256 + var_rank(i),
2327 do 3, j = 1, var_rank(i)
2332 err = index2indexes(j, var_rank(i), var_shape(1,i),
2337 + var_rank(i),
2350 + var_dimid(var_rank(i),i) .ne. RECDIM)
2375 if (var_rank(i) .ge. 1 .and.
2376 + var_dimid(var_rank(i),i) .eq. RECDIM) then
2379 if (var_rank(i) .gt. MAX_RANK)
2386 do 6 j = 1, var_rank(i)
2391 err = index2indexes(j, var_rank(i), var_shape(1,i),
2396 + var_rank(i),
2466 do 3, j = 1, var_rank(i)
2471 err = index2indexes(j, var_rank(i), var_shape(1,i),
2476 + var_rank(i),
2489 + var_dimid(var_rank(i),i) .ne. RECDIM)
2514 if (var_rank(i) .ge. 1 .and.
2515 + var_dimid(var_rank(i),i) .eq. RECDIM) then
2518 if (var_rank(i) .gt. MAX_RANK)
2525 do 6 j = 1, var_rank(i)
2530 err = index2indexes(j, var_rank(i), var_shape(1,i),
2535 + var_rank(i),
2605 do 3, j = 1, var_rank(i)
2610 err = index2indexes(j, var_rank(i), var_shape(1,i),
2615 + var_rank(i),
2628 + var_dimid(var_rank(i),i) .ne. RECDIM)
2653 if (var_rank(i) .ge. 1 .and.
2654 + var_dimid(var_rank(i),i) .eq. RECDIM) then
2657 if (var_rank(i) .gt. MAX_RANK)
2664 do 6 j = 1, var_rank(i)
2669 err = index2indexes(j, var_rank(i), var_shape(1,i),
2674 + var_rank(i),
2744 if (.not.(var_rank(i) .le. MAX_RANK))
2748 do 2, j = 1, var_rank(i)
2760 do 3, j = 1, var_rank(i)
2788 do 20, j = 1, var_rank(i)
2799 do 21, j = 1, var_rank(i)
2822 do 22, j = 1, var_rank(i)
2830 do 4, j = 1, var_rank(i)
2837 do 6, j = 1, var_rank(i)
2849 err = index2indexes(j, var_rank(i), edge, index)
2852 do 8, d = 1, var_rank(i)
2856 + var_rank(i), index,
2927 if (.not.(var_rank(i) .le. MAX_RANK))
2931 do 2, j = 1, var_rank(i)
2943 do 3, j = 1, var_rank(i)
2971 do 20, j = 1, var_rank(i)
2982 do 21, j = 1, var_rank(i)
3005 do 22, j = 1, var_rank(i)
3013 do 4, j = 1, var_rank(i)
3020 do 6, j = 1, var_rank(i)
3032 err = index2indexes(j, var_rank(i), edge, index)
3035 do 8, d = 1, var_rank(i)
3039 + var_rank(i), index,
3111 if (.not.(var_rank(i) .le. MAX_RANK))
3115 do 2, j = 1, var_rank(i)
3127 do 3, j = 1, var_rank(i)
3155 do 20, j = 1, var_rank(i)
3166 do 21, j = 1, var_rank(i)
3189 do 22, j = 1, var_rank(i)
3197 do 4, j = 1, var_rank(i)
3204 do 6, j = 1, var_rank(i)
3216 err = index2indexes(j, var_rank(i), edge, index)
3219 do 8, d = 1, var_rank(i)
3223 + var_rank(i), index,
3294 if (.not.(var_rank(i) .le. MAX_RANK))
3298 do 2, j = 1, var_rank(i)
3310 do 3, j = 1, var_rank(i)
3338 do 20, j = 1, var_rank(i)
3349 do 21, j = 1, var_rank(i)
3372 do 22, j = 1, var_rank(i)
3380 do 4, j = 1, var_rank(i)
3387 do 6, j = 1, var_rank(i)
3399 err = index2indexes(j, var_rank(i), edge, index)
3402 do 8, d = 1, var_rank(i)
3406 + var_rank(i), index,
3476 if (.not.(var_rank(i) .le. MAX_RANK))
3480 do 2, j = 1, var_rank(i)
3492 do 3, j = 1, var_rank(i)
3520 do 20, j = 1, var_rank(i)
3531 do 21, j = 1, var_rank(i)
3554 do 22, j = 1, var_rank(i)
3562 do 4, j = 1, var_rank(i)
3569 do 6, j = 1, var_rank(i)
3581 err = index2indexes(j, var_rank(i), edge, index)
3584 do 8, d = 1, var_rank(i)
3588 + var_rank(i), index,
3658 if (.not.(var_rank(i) .le. MAX_RANK))
3662 do 2, j = 1, var_rank(i)
3674 do 3, j = 1, var_rank(i)
3702 do 20, j = 1, var_rank(i)
3713 do 21, j = 1, var_rank(i)
3736 do 22, j = 1, var_rank(i)
3744 do 4, j = 1, var_rank(i)
3751 do 6, j = 1, var_rank(i)
3763 err = index2indexes(j, var_rank(i), edge, index)
3766 do 8, d = 1, var_rank(i)
3770 + var_rank(i), index,
3847 if (.not.(var_rank(i) .le. MAX_RANK))
3851 do 2, j = 1, var_rank(i)
3865 do 3, j = 1, var_rank(i)
3908 do 4, j = 1, var_rank(i)
3916 do 6, j = 1, var_rank(i)
3933 err = index2indexes(m, var_rank(i), sstride, index)
3937 do 8, j = 1, var_rank(i)
3953 err = index2indexes(j, var_rank(i), count,
3957 do 10, d = 1, var_rank(i)
3962 + var_rank(i),
4042 if (.not.(var_rank(i) .le. MAX_RANK))
4046 do 2, j = 1, var_rank(i)
4060 do 3, j = 1, var_rank(i)
4103 do 4, j = 1, var_rank(i)
4111 do 6, j = 1, var_rank(i)
4128 err = index2indexes(m, var_rank(i), sstride, index)
4132 do 8, j = 1, var_rank(i)
4148 err = index2indexes(j, var_rank(i), count,
4152 do 10, d = 1, var_rank(i)
4157 + var_rank(i),
4238 if (.not.(var_rank(i) .le. MAX_RANK))
4242 do 2, j = 1, var_rank(i)
4256 do 3, j = 1, var_rank(i)
4299 do 4, j = 1, var_rank(i)
4307 do 6, j = 1, var_rank(i)
4324 err = index2indexes(m, var_rank(i), sstride, index)
4328 do 8, j = 1, var_rank(i)
4344 err = index2indexes(j, var_rank(i), count,
4348 do 10, d = 1, var_rank(i)
4353 + var_rank(i),
4433 if (.not.(var_rank(i) .le. MAX_RANK))
4437 do 2, j = 1, var_rank(i)
4451 do 3, j = 1, var_rank(i)
4494 do 4, j = 1, var_rank(i)
4502 do 6, j = 1, var_rank(i)
4519 err = index2indexes(m, var_rank(i), sstride, index)
4523 do 8, j = 1, var_rank(i)
4539 err = index2indexes(j, var_rank(i), count,
4543 do 10, d = 1, var_rank(i)
4548 + var_rank(i),
4627 if (.not.(var_rank(i) .le. MAX_RANK))
4631 do 2, j = 1, var_rank(i)
4645 do 3, j = 1, var_rank(i)
4688 do 4, j = 1, var_rank(i)
4696 do 6, j = 1, var_rank(i)
4713 err = index2indexes(m, var_rank(i), sstride, index)
4717 do 8, j = 1, var_rank(i)
4733 err = index2indexes(j, var_rank(i), count,
4737 do 10, d = 1, var_rank(i)
4742 + var_rank(i),
4821 if (.not.(var_rank(i) .le. MAX_RANK))
4825 do 2, j = 1, var_rank(i)
4839 do 3, j = 1, var_rank(i)
4882 do 4, j = 1, var_rank(i)
4890 do 6, j = 1, var_rank(i)
4907 err = index2indexes(m, var_rank(i), sstride, index)
4911 do 8, j = 1, var_rank(i)
4927 err = index2indexes(j, var_rank(i), count,
4931 do 10, d = 1, var_rank(i)
4936 + var_rank(i),
5017 if (.not.(var_rank(i) .le. MAX_RANK))
5021 do 2, j = 1, var_rank(i)
5037 do 3, j = 1, var_rank(i)
5080 do 4, j = 1, var_rank(i)
5088 do 6, j = 1, var_rank(i)
5105 err = index2indexes(m, var_rank(i), sstride, index)
5109 do 8, j = 1, var_rank(i)
5124 if (var_rank(i) .gt. 0) then
5126 do 10, j = 2, var_rank(i)
5132 err = index2indexes(j, var_rank(i), count,
5136 do 12, d = 1, var_rank(i)
5141 + var_rank(i),
5222 if (.not.(var_rank(i) .le. MAX_RANK))
5226 do 2, j = 1, var_rank(i)
5242 do 3, j = 1, var_rank(i)
5285 do 4, j = 1, var_rank(i)
5293 do 6, j = 1, var_rank(i)
5310 err = index2indexes(m, var_rank(i), sstride, index)
5314 do 8, j = 1, var_rank(i)
5329 if (var_rank(i) .gt. 0) then
5331 do 10, j = 2, var_rank(i)
5337 err = index2indexes(j, var_rank(i), count,
5341 do 12, d = 1, var_rank(i)
5346 + var_rank(i),
5428 if (.not.(var_rank(i) .le. MAX_RANK))
5432 do 2, j = 1, var_rank(i)
5448 do 3, j = 1, var_rank(i)
5491 do 4, j = 1, var_rank(i)
5499 do 6, j = 1, var_rank(i)
5516 err = index2indexes(m, var_rank(i), sstride, index)
5520 do 8, j = 1, var_rank(i)
5535 if (var_rank(i) .gt. 0) then
5537 do 10, j = 2, var_rank(i)
5543 err = index2indexes(j, var_rank(i), count,
5547 do 12, d = 1, var_rank(i)
5552 + var_rank(i),
5633 if (.not.(var_rank(i) .le. MAX_RANK))
5637 do 2, j = 1, var_rank(i)
5653 do 3, j = 1, var_rank(i)
5696 do 4, j = 1, var_rank(i)
5704 do 6, j = 1, var_rank(i)
5721 err = index2indexes(m, var_rank(i), sstride, index)
5725 do 8, j = 1, var_rank(i)
5740 if (var_rank(i) .gt. 0) then
5742 do 10, j = 2, var_rank(i)
5748 err = index2indexes(j, var_rank(i), count,
5752 do 12, d = 1, var_rank(i)
5757 + var_rank(i),
5837 if (.not.(var_rank(i) .le. MAX_RANK))
5841 do 2, j = 1, var_rank(i)
5857 do 3, j = 1, var_rank(i)
5900 do 4, j = 1, var_rank(i)
5908 do 6, j = 1, var_rank(i)
5925 err = index2indexes(m, var_rank(i), sstride, index)
5929 do 8, j = 1, var_rank(i)
5944 if (var_rank(i) .gt. 0) then
5946 do 10, j = 2, var_rank(i)
5952 err = index2indexes(j, var_rank(i), count,
5956 do 12, d = 1, var_rank(i)
5961 + var_rank(i),
6041 if (.not.(var_rank(i) .le. MAX_RANK))
6045 do 2, j = 1, var_rank(i)
6061 do 3, j = 1, var_rank(i)
6104 do 4, j = 1, var_rank(i)
6112 do 6, j = 1, var_rank(i)
6129 err = index2indexes(m, var_rank(i), sstride, index)
6133 do 8, j = 1, var_rank(i)
6148 if (var_rank(i) .gt. 0) then
6150 do 10, j = 2, var_rank(i)
6156 err = index2indexes(j, var_rank(i), count,
6160 do 12, d = 1, var_rank(i)
6165 + var_rank(i),