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