Write a tensor block
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | name |
tensor name |
||
| integer, | intent(in), | DIMENSION(:) | :: | blk_size |
block size |
|
| integer, | intent(in), | DIMENSION(:) | :: | blk_index |
block index |
|
| integer, | intent(in) | :: | proc |
which process am I |
||
| integer, | intent(in) | :: | unit_nr |
unit number |
||
| real(kind=real_8), | intent(in), | optional, | DIMENSION(blk_size(1), blk_size(2)) | :: | blk_values_2 |
block values for 2 dimensions |
| real(kind=real_8), | intent(in), | optional, | DIMENSION(blk_size(1), blk_size(2), blk_size(3)) | :: | blk_values_3 |
block values for 2 dimensions |
| real(kind=real_8), | intent(in), | optional, | DIMENSION(blk_size(1), blk_size(2), blk_size(3), blk_size(4)) | :: | blk_values_4 |
block values for 2 dimensions |
| logical, | intent(in), | optional | :: | write_int |
write_int convert values to integers |