1*-----------------------------------------------------------------------
2*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
3*-----------------------------------------------------------------------
4      PROGRAM VIBL01
5
6      PARAMETER (N=10)
7
8      INTEGER   IX(N),IY(N),IZ(N)
9
10      INTEGER   IFNB
11      EXTERNAL  IFNB
12
13      DATA      IX/  2,  1,  4,  6,  7, -4, 12,999, 23, -5/
14      DATA      IY/  4, -1,  2,999,  3,  7,  1,  4,  3, -1/
15
16
17      WRITE(*,'(A,10I6)') ' LIST OF IX : ',IX
18      WRITE(*,'(A,10I6)') ' LIST OF IY : ',IY
19      WRITE(*,'(A)') ' *** OPTION LMISS = .FALSE.'
20      CALL VIADD(IX,IY,IZ,10,1,1,1)
21      WRITE(*,'(A)') ' AFTER CALLING VIADD(IX,IY,IZ,10,1,1,1)'
22      WRITE(*,'(A,10I6)') ' LIST OF IZ : ',IZ
23      CALL VISUB(IX,IY,IZ,10,1,1,1)
24      WRITE(*,'(A)') ' AFTER CALLING VISUB(IX,IY,IZ,10,1,1,1)'
25      WRITE(*,'(A,10I6)') ' LIST OF IZ : ',IZ
26      CALL VIMLT(IX,IY,IZ,10,1,1,1)
27      WRITE(*,'(A)') ' AFTER CALLING VIMLT(IX,IY,IZ,10,1,1,1)'
28      WRITE(*,'(A,10I6)') ' LIST OF IZ : ',IZ
29      CALL VIDIV(IX,IY,IZ,10,1,1,1)
30      WRITE(*,'(A)') ' AFTER CALLING VIDIV(IX,IY,IZ,10,1,1,1)'
31      WRITE(*,'(A,10I6)') ' LIST OF IZ : ',IZ
32      CALL VIFNB(IX,IY,IZ,10,1,1,1,IFNB)
33      WRITE(*,'(A)') ' AFTER CALLING VIFNB(IX,IY,IZ,10,1,1,1,IFNB)'
34      WRITE(*,'(A)') ' IFNB(I,J)=MIN(I,J)'
35      WRITE(*,'(A,10I6)') ' LIST OF IZ : ',IZ
36
37      CALL GLLSET('LMISS',.TRUE.)
38      WRITE(*,'(A)') ' *** OPTION LMISS = .TRUE.'
39      CALL VIADD(IX,IY,IZ,10,1,1,1)
40      WRITE(*,'(A)') ' AFTER CALLING VIADD(IX,IY,IZ,10,1,1,1)'
41      WRITE(*,'(A,10I6)') ' LIST OF IZ : ',IZ
42      CALL VISUB(IX,IY,IZ,10,1,1,1)
43      WRITE(*,'(A)') ' AFTER CALLING VISUB(IX,IY,IZ,10,1,1,1)'
44      WRITE(*,'(A,10I6)') ' LIST OF IZ : ',IZ
45      CALL VIMLT(IX,IY,IZ,10,1,1,1)
46      WRITE(*,'(A)') ' AFTER CALLING VIMLT(IX,IY,IZ,10,1,1,1)'
47      WRITE(*,'(A,10I6)') ' LIST OF IZ : ',IZ
48      CALL VIDIV(IX,IY,IZ,10,1,1,1)
49      WRITE(*,'(A)') ' AFTER CALLING VIDIV(IX,IY,IZ,10,1,1,1)'
50      WRITE(*,'(A,10I6)') ' LIST OF IZ : ',IZ
51      CALL VIFNB(IX,IY,IZ,10,1,1,1,IFNB)
52      WRITE(*,'(A)') ' AFTER CALLING VIFNB(IX,IY,IZ,10,1,1,1,IFNB)'
53      WRITE(*,'(A)') ' IFNB(I,J)=MIN(I,J)'
54      WRITE(*,'(A,10I6)') ' LIST OF IZ : ',IZ
55
56      END
57*-----------------------------------------------------------------------
58      INTEGER FUNCTION IFNB(I,J)
59
60      IFNB=MIN(I,J)
61
62      END
63