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