1*-----------------------------------------------------------------------
2*     VRFNB
3*-----------------------------------------------------------------------
4*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
5*-----------------------------------------------------------------------
6      SUBROUTINE VRFNB(RX,RY,RZ,N,JX,JY,JZ,RFNB)
7
8      REAL      RX(*),RY(*),RZ(*)
9
10      LOGICAL   LMISS
11
12      REAL      RFNB
13      EXTERNAL  RFNB
14
15
16      CALL GLLGET('LMISS',LMISS)
17      IF (LMISS) THEN
18        CALL VRFNB1(RX,RY,RZ,N,JX,JY,JZ,RFNB)
19      ELSE
20        CALL VRFNB0(RX,RY,RZ,N,JX,JY,JZ,RFNB)
21      END IF
22
23      END
24