subroutine alchimia_copy |
( |
character(len=10), dimension(:), intent(in) |
mybin, |
|
|
character(len=10), dimension(:), intent(in) |
mybout, |
|
|
character(len=10), dimension(:), intent(in) |
bin, |
|
|
character(len=10), dimension(:), intent(in) |
bout, |
|
|
real, dimension(:,:), intent(in) |
in, |
|
|
real, dimension(:,:), intent(out) |
out |
|
) |
| |
|
private |