IXFtimes X

From LIBISIS
Jump to navigation Jump to search

This is an interface to the IXFarray_X_times_dataset_2d and IXFdataset_1d_X_times_dataset_2d methods.

These subroutines will either multiply a scalar 1-D array or an IXTdataset_1d object with every row of an IXTdataset_2d object. The order of the arguments is fixed.


F90 syntax

use IXMdataset_2d
use IXMdataset_1d
type(IXTdataset_2d):: d2d, wres
type(IXTdataset_1d):: d1d
real(dp)::scalar1d(:)
type(IXTstatus)::status
:
!using interface
call IXFtimes_X(wres,d2d,scalar1d,status) ! wres=d2d*scalar1d
call IXFtimes_X(wres,d2d,d1d,status) ! wres=d2d*d1d

!using specific methods
call IXFarray_X_times_dataset_2d(wres,d2d,scalar1d,status) ! wres=d2d*scalar1d
call IXFdataset_1d_X_times_dataset_2d(wres,d2d,d1d,status) ! wres=d2d*d1d