 | |  |  |  |  |
| | | | | |
compdb — Compare datasets
subroutine compdb(handle1,set1,idiv1,handle2,set2,idiv2,
eps,epseff,isame,status)
integer*4 handle1
character*(*) set1
integer*4 idiv1
integer*4 handle2
character*(*) set2
integer*4 idiv2
real*4 eps
real*4 epseff
integer*4 isame
integer*4 istatcompdb compares two numeric datasets, i.e
datasets of type E, F,
D, or I. The comparison is
done as follows:
Compute scalar product p = set1*set2.
Compute sum s of difference between
elements of set1 and
set2.
If (s/p)-1 is less or equal to eps, the
two vectors are considered to be one and the same.
handle1Database handle of set1 (input).
The file handle
set1Dataset name of set to be compared to
set2 (input).
idiv1Sub-division number (input). idiv1
must be greater than or equal to 0.
handle2Database handle of set set2(input).
The file handle handle2 may not exceed
the maximum number of
simultaneously open databases.
set2Dataset name of set to be compared to
set1 (input).
idiv2Sub-division number (input). idiv2
must be greater than or equal to 0.
epsError tolerance for the comparison input).
epseffEffective eps computed
(output).
isameCompare flag (output). A value of 0 indicates that the
datasets differ. A value of 1 indicates that the datasets
are equal up to eps.
statusStatus code returned (output). Upon successful completion of the operation, the status value 0 is returned. A negative value is returned, if an error has been detected. A positive value is returned, if a warning has been issued. See MemCom error codes.