1 !----------------------------------------------------------------------- 2 subroutine setup(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,& 3 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 4 real*8 ctx(1) 5 real*8 u1(8) 6 real*8 v1(8) 7 integer q,ierr 8 9 do i=1,q 10 v1(i)=u1(i) 11 enddo 12 13 ierr=0 14 end 15 !----------------------------------------------------------------------- 16 subroutine mass(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,& 17 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 18 real*8 ctx(5) 19 real*8 u1(8) 20 real*8 u2(8) 21 real*8 v1(8) 22 integer q,ierr 23 24 do i=1,q 25 v1(i)=ctx(5)*u1(i)*u2(i) 26 enddo 27 28 ierr=0 29 end 30 !----------------------------------------------------------------------- 31