Lines Matching refs:iarray
99 do iarray=1,narrays
101 call cg_array_info_f(iarray, arrayname, datatype, &
105 write(6,108)' DataArray_t #',iarray,':'
117 call cg_array_read_f(iarray, data_char, ier)
131 call cg_array_read_f(iarray, data_single, ier)
136 call cg_array_read_f(iarray, data_double, ier)
141 call cg_array_read_f(iarray, data_int, ier)
185 do iarray=1,narrays
187 call cg_array_info_f(iarray, arrayname, datatype, &
191 write(6,108)' DataArray_t #',iarray,':'
203 call cg_array_read_f(iarray, data_char, ier)
248 do iarray=1,narrays
251 call cg_array_info_f(iarray, name, datatype, &
268 call cg_array_read_f(iarray, data_single, ier)
273 call cg_array_read_f(iarray, data_double, ier)
317 do iarray=1,narrays
322 call cg_array_info_f(iarray, name, datatype, &
325 write(6,114) ' DataArray #',iarray
334 call cg_array_read_f(iarray, data_single, ier)
338 call cg_array_read_f(iarray, data_double, ier)
391 do iarray=1,narrays
395 call cg_array_info_f(iarray, arrayname, datatype, &
399 write(6,108)' DataArray_t #',iarray,':'
411 call cg_array_read_f(iarray, data_single, ier)
416 call cg_array_read_f(iarray, data_double, ier)
424 'DataArray_t', iarray, 'end')
482 do iarray=1,narrays
486 call cg_array_info_f(iarray, arrayname, datatype, &
490 write(6,108)' DataArray_t #',iarray,':'
502 call cg_array_read_f(iarray, data_single, ier)
507 call cg_array_read_f(iarray, data_double, ier)
515 'DataArray_t', iarray, 'end')