adv_uv_edg_gcn90.stub

C NCLFORTSTART 
   SUBROUTINE ADV_UV_EDGE_GCN(U,V,XC,YC,N,M,ART,NE,IEC,IENODE,NBE,DT,DT1,EGF,XIJC,YIJC,A1U,A2U,DLTYC,DLTXC,ADVXU,ADVXV,ADVYU,ADVYV,VISCX,VISCY,DPBPX,DPBPY)
   
   INTEGER N,M,NE
   INTEGER IEC(NE,2),IENODE(NE,2),NBE(N,3)
   REAL*8  XC(N),YC(N),U(N),V(N),ART(N),DT(M),EGF(M),DT1(N),DLTXC(NE),DLTYC(NE)
   REAL*8  XIJC(NE),YIJC(NE),DLTYC(NE),DLTXC(NE),A1U(N,4),A2U(N,4)
   REAL*8  ADVXU(N),ADVXV(N),ADVYU(N),ADVYV(N),VISCX(N),VISCY(N),DPBPX(N),DPBPY(N)

C NCLEND