1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
/ *Macros for accessing attribute test data */
/* varid is -1 for NF_GLOBAL so can do global atts in same loop */
FUNCTION VARID(VID)
IMPLICIT NONE
INTEGER VID
#include "tests.inc"
IF (VID .LT. 0) THEN
VARID = NF_GLOBAL
ELSE
VARID = VID
ENDIF
end
FUNCTION NATTS(VID)
INTEGER VID
#include "tests.inc"
IF (VID .LE. 0) THEN
NATTS = NGATTS
ELSE
NATTS = VAR_NATTS(VID)
ENDIF
END
FUNCTION ATT_NAME(J,VID)
INTEGER J
INTEGER VID
#include "tests.inc"
IF (VID .LE. 0) THEN
ATT_NAME = GATT_NAME(J)
ELSE
ATT_NAME = ATTNAME(J,VID)
ENDIF
END
FUNCTION ATT_TYPE(J,VID)
INTEGER J
INTEGER VID
#include "tests.inc"
IF (VID .LE. 0) THEN
ATT_TYPE = GATT_TYPE(J)
ELSE
ATT_TYPE = ATTTYPE(J,VID)
ENDIF
END
FUNCTION ATT_LEN(J,VID)
INTEGER J
INTEGER VID
#include "tests.inc"
IF (VID .LE. 0) THEN
ATT_LEN = GATT_LEN(J)
ELSE
ATT_LEN = ATTLEN(J,VID)
ENDIF
END
|
