Lines Matching refs:iarray

245 	      do iarray=1, narrays
246                 call cg_array_info_f(iarray, name, datatype,
258 	          call cg_array_read_f(iarray, data_single, ier)
262 		  call cg_array_read_f(iarray, data_double, ier)
314 	          do iarray=1, narrays
317                     call cg_array_info_f(iarray, name, datatype,
327                       call cg_array_read_f(iarray, data_single, ier)
331                       call cg_array_read_f(iarray, data_double, ier)
339      &                         'DataArray_t', iarray, 'end')
427 	      do iarray=1,narrays
434                 call cg_array_info_f(iarray, name, datatype,
452                   call cg_array_read_f(iarray, data_single, ier)
457                   call cg_array_read_f(iarray, data_double, ier)
465      &          'GridCoordinates_t', 1, 'DataArray_t', iarray, 'end')
561               do iarray=1,narrays
566                 call cg_array_info_f(iarray, name, datatype,
569 	        write(6,114) '  DataArray #',iarray
586                   call cg_array_read_f(iarray, data_single, ier)
590                   call cg_array_read_f(iarray, data_double, ier)
597      &          'FlowSolution_t',sol,'DataArray_t',iarray,'end')
698 	      do iarray=1, narrays
699 	        call cg_array_info_f(iarray, name, datatype,
703 		write(6,116) 'DataArray #',iarray,':'
716                   call cg_array_read_f(iarray, data_single, ier)
727      &            'DiscreteData_t', discr, 'DataArray_t', iarray, 'end')
940                 do iarray=1, narrays
942                   call cg_array_info_f(iarray, name, datatype,
946 		  write(6,105) '   DataArray #',iarray,':'
953                     call cg_array_read_f(iarray, data_single, ier)
957                     call cg_array_read_f(iarray, data_double, ier)
1081                     do iarray=1, narrays
1082                       call cg_array_info_f(iarray, name, datatype,
1086                       write(6,105) '    DataArray #',iarray,':'
1094                         call cg_array_read_f(iarray, data_single, ier)
1100                         call cg_array_read_f(iarray, data_double, ier)
1125                     do iarray=1, narrays
1126                       call cg_array_info_f(iarray, name, datatype,
1130                       write(6,105) '    DataArray #',iarray,':'
1138                         call cg_array_read_f(iarray, data_single, ier)
1144                         call cg_array_read_f(iarray, data_double, ier)