15 December  2023   1:16:14.732 PM      
 
tcell_mass():
  Fortran77 version
  Compute mass matrix and other ODE
  coefficients for a finite element solution
  of the Navier Stokes equations in a TCELL
  region.
 
  Maximum number of elements =     3200
  Maximum number of nodes =        6561
 
  Number of nodes =   4961
  Number of elements =   2400
 Compute (Phi_k,v(0)-beta(0)*v_r)
 Compute (Phi_i,Phi_j) and (Grad(Phi_i),Grad(Phi_j))
   1.5260180976981231E-004  -3.3461650713928347E-006  -1.8413068817031567E-006
  -3.3461650713928453E-006   1.4716361168328357E-004  -1.2113618191500662E-004
   3.1845561608532781E-002   4.1919898569172672E-004  -1.5763764068328931E-003
   4.1919898569171095E-004   3.3417362820050762E-002  -1.9787681008598391E-002
 Compute (Phi_i,v_r)
 Compute Q_klm
           1           1
           1           2
           1           3
           1           4
           1           5
           1           6
           1           7
           1           8
           2           1
           2           2
           2           3
           2           4
           2           5
           2           6
           2           7
           2           8
           3           1
           3           2
           3           3
           3           4
           3           5
           3           6
           3           7
           3           8
           4           1
           4           2
           4           3
           4           4
           4           5
           4           6
           4           7
           4           8
           5           1
           5           2
           5           3
           5           4
           5           5
           5           6
           5           7
           5           8
           6           1
           6           2
           6           3
           6           4
           6           5
           6           6
           6           7
           6           8
           7           1
           7           2
           7           3
           7           4
           7           5
           7           6
           7           7
           7           8
           8           1
           8           2
           8           3
           8           4
           8           5
           8           6
           8           7
           8           8
 Compute R_kl first
           1           1
           1           2
           1           3
           1           4
           1           5
           1           6
           1           7
           1           8
           2           1
           2           2
           2           3
           2           4
           2           5
           2           6
           2           7
           2           8
           3           1
           3           2
           3           3
           3           4
           3           5
           3           6
           3           7
           3           8
           4           1
           4           2
           4           3
           4           4
           4           5
           4           6
           4           7
           4           8
           5           1
           5           2
           5           3
           5           4
           5           5
           5           6
           5           7
           5           8
           6           1
           6           2
           6           3
           6           4
           6           5
           6           6
           6           7
           6           8
           7           1
           7           2
           7           3
           7           4
           7           5
           7           6
           7           7
           7           8
           8           1
           8           2
           8           3
           8           4
           8           5
           8           6
           8           7
           8           8
 Compute R_kl second
           1           1
           1           2
           1           3
           1           4
           1           5
           1           6
           1           7
           1           8
           2           1
           2           2
           2           3
           2           4
           2           5
           2           6
           2           7
           2           8
           3           1
           3           2
           3           3
           3           4
           3           5
           3           6
           3           7
           3           8
           4           1
           4           2
           4           3
           4           4
           4           5
           4           6
           4           7
           4           8
           5           1
           5           2
           5           3
           5           4
           5           5
           5           6
           5           7
           5           8
           6           1
           6           2
           6           3
           6           4
           6           5
           6           6
           6           7
           6           8
           7           1
           7           2
           7           3
           7           4
           7           5
           7           6
           7           7
           7           8
           8           1
           8           2
           8           3
           8           4
           8           5
           8           6
           8           7
           8           8
 compute C_k
 
tcell_mass():
  Normal end of execution.
 
15 December  2023   1:20:41.187 PM