|
◆ alchimia_copy()
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 |
- Parametri
-
[in] | mybin | vector table B WMO input in user's data |
[in] | mybout | vector table B WMO output in user's data |
[in] | bin | vector table B WMO input used by function |
[in] | bout | vector table B WMO output used by function |
[in] | in | input data array |
[out] | out | output data array |
Definizione alla linea 325 del file alchimia.F03.
326type(fndsv),intent(in) :: vfnv(:)
327integer :: i
328
329print *,">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>"
330do i = 1, size(vfnv)
331 print*,">> Function tree number:",i
332 call display(vfnv(i))
333end do
334print *,"<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<"
|