Source Files

FileDescription
analyze.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
analyze_vars.F90
base.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
basis1d.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
binding.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
BiotSavart.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
boundaryFromFile.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
c_hmap.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
c_rprofile.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
c_sol_var.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
cla.F90
convert_gvec_to_castor3d.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
convert_gvec_to_jorek.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
cubic_spline.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
fbase.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
globals.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
gvec.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
gvec_post.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
gvec_to_castor3d_vars.F90
gvec_to_gene_c_bind.F90
gvec_to_gene_vars.F90
gvec_to_hopr_vars.F90
gvec_to_jorek.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
gvec_to_jorek_vars.F90
hmap.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
hmap_axisNB.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
hmap_cyl.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
hmap_frenet.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
hmap_knot.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
hmap_RZ.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
io_netcdf.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
lambda_solve.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
linalg.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
mhd3d.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
mhd3d_evalfunc.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
mhd3d_minimize.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
mhd3d_vars.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
mod_mpi.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
mod_timings.F90
newton.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
output.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
output_csv.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
output_netcdf.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
output_vars.F90
output_vtk.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
perf2ftimings.F90
readintools.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
readstate.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
readstate_vars.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
restart.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
restart_vars.F90
rprofile_bspline.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
rprofile_polynomial.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
run.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
rungvec.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
sbase.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
sfl_boozer.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
sgrid.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
sll_m_assert.F90

Copyright INRIA Authors : CALVI project team

Read more…
sll_m_boundary_condition_descriptors.F90
sll_m_bsplines.F90
sll_m_bsplines_base.F90
sll_m_bsplines_non_uniform.F90
sll_m_bsplines_uniform.F90
sll_m_errors.F90
sll_m_spline_1d.F90
sll_m_spline_interpolator_1d.F90
sll_m_spline_matrix.F90
sll_m_spline_matrix_banded.F90
sll_m_spline_matrix_base.F90
sll_m_spline_matrix_dense.F90
sll_m_working_precision.F90

Copyright INRIA Authors : CALVI project team

Read more…
sol_var_mhd3d.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
state.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
test_gvec_to_gene.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
test_gvec_to_hopr.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
transform_sfl.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
vmec.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
vmec_readin.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
vmec_vars.F90
write_modes.F90

!!matvec with matmul !#define __MATVEC_N(y,Mat,Vec) y=MATMUL(Mat,Vec) !#define __MATVEC_T(y,Mat,Vec) y=MATMUL(Vec,Mat) !#define __PMATVEC_N(fy,y,Mat,Vec) y=fyy+MATMUL(Mat,Vec) !#define __PMATVEC_T(fy,y,Mat,Vec) y=fyy+MATMUL(Vec,Mat) !#define __AMATVEC_N(y,fMat,Mat,Vec) y=fMatMATMUL(Mat,Vec) !#define __AMATVEC_T(y,fMat,Mat,Vec) y=fMatMATMUL(Vec,Mat) !#define __PAMATVEC_N(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Mat,Vec) !#define __PAMATVEC_T(fy,y,fMat,Mat,Vec) y=fyy+fMatMATMUL(Vec,Mat)

Read more…
file~~graph~~FileGraph sourcefile~analyze.f90 analyze.F90 sourcefile~gvec_post.f90 gvec_post.F90 sourcefile~analyze.f90->sourcefile~gvec_post.f90 sourcefile~mhd3d.f90 mhd3d.F90 sourcefile~analyze.f90->sourcefile~mhd3d.f90 sourcefile~mhd3d_minimize.f90 mhd3d_minimize.F90 sourcefile~analyze.f90->sourcefile~mhd3d_minimize.f90 sourcefile~run.f90 run.F90 sourcefile~analyze.f90->sourcefile~run.f90 sourcefile~rungvec.f90 rungvec.F90 sourcefile~analyze.f90->sourcefile~rungvec.f90 sourcefile~state.f90 state.F90 sourcefile~analyze.f90->sourcefile~state.f90 sourcefile~analyze_vars.f90 analyze_vars.F90 sourcefile~analyze_vars.f90->sourcefile~analyze.f90 sourcefile~hmap_axisnb.f90 hmap_axisNB.F90 sourcefile~analyze_vars.f90->sourcefile~hmap_axisnb.f90 sourcefile~hmap_frenet.f90 hmap_frenet.F90 sourcefile~analyze_vars.f90->sourcefile~hmap_frenet.f90 sourcefile~base.f90 base.F90 sourcefile~gvec_to_jorek.f90 gvec_to_jorek.F90 sourcefile~base.f90->sourcefile~gvec_to_jorek.f90 sourcefile~gvec_to_jorek_vars.f90 gvec_to_jorek_vars.F90 sourcefile~base.f90->sourcefile~gvec_to_jorek_vars.f90 sourcefile~lambda_solve.f90 lambda_solve.F90 sourcefile~base.f90->sourcefile~lambda_solve.f90 sourcefile~base.f90->sourcefile~mhd3d.f90 sourcefile~mhd3d_evalfunc.f90 mhd3d_evalfunc.F90 sourcefile~base.f90->sourcefile~mhd3d_evalfunc.f90 sourcefile~mhd3d_vars.f90 mhd3d_vars.F90 sourcefile~base.f90->sourcefile~mhd3d_vars.f90 sourcefile~readstate.f90 readstate.F90 sourcefile~base.f90->sourcefile~readstate.f90 sourcefile~readstate_vars.f90 readstate_vars.F90 sourcefile~base.f90->sourcefile~readstate_vars.f90 sourcefile~restart.f90 restart.F90 sourcefile~base.f90->sourcefile~restart.f90 sourcefile~sfl_boozer.f90 sfl_boozer.F90 sourcefile~base.f90->sourcefile~sfl_boozer.f90 sourcefile~base.f90->sourcefile~state.f90 sourcefile~transform_sfl.f90 transform_sfl.F90 sourcefile~base.f90->sourcefile~transform_sfl.f90 sourcefile~basis1d.f90 basis1d.F90 sourcefile~sbase.f90 sbase.F90 sourcefile~basis1d.f90->sourcefile~sbase.f90 sourcefile~binding.f90 binding.F90 sourcefile~biotsavart.f90 BiotSavart.F90 sourcefile~boundaryfromfile.f90 boundaryFromFile.F90 sourcefile~boundaryfromfile.f90->sourcefile~mhd3d.f90 sourcefile~boundaryfromfile.f90->sourcefile~mhd3d_vars.f90 sourcefile~c_hmap.f90 c_hmap.F90 sourcefile~hmap.f90 hmap.F90 sourcefile~c_hmap.f90->sourcefile~hmap.f90 sourcefile~c_hmap.f90->sourcefile~hmap_axisnb.f90 sourcefile~hmap_cyl.f90 hmap_cyl.F90 sourcefile~c_hmap.f90->sourcefile~hmap_cyl.f90 sourcefile~c_hmap.f90->sourcefile~hmap_frenet.f90 sourcefile~hmap_knot.f90 hmap_knot.F90 sourcefile~c_hmap.f90->sourcefile~hmap_knot.f90 sourcefile~hmap_rz.f90 hmap_RZ.F90 sourcefile~c_hmap.f90->sourcefile~hmap_rz.f90 sourcefile~c_rprofile.f90 c_rprofile.F90 sourcefile~c_rprofile.f90->sourcefile~mhd3d.f90 sourcefile~c_rprofile.f90->sourcefile~mhd3d_vars.f90 sourcefile~rprofile_bspline.f90 rprofile_bspline.F90 sourcefile~c_rprofile.f90->sourcefile~rprofile_bspline.f90 sourcefile~rprofile_polynomial.f90 rprofile_polynomial.F90 sourcefile~c_rprofile.f90->sourcefile~rprofile_polynomial.f90 sourcefile~c_rprofile.f90->sourcefile~state.f90 sourcefile~vmec_vars.f90 vmec_vars.F90 sourcefile~c_rprofile.f90->sourcefile~vmec_vars.f90 sourcefile~c_sol_var.f90 c_sol_var.F90 sourcefile~sol_var_mhd3d.f90 sol_var_mhd3d.F90 sourcefile~c_sol_var.f90->sourcefile~sol_var_mhd3d.f90 sourcefile~cla.f90 cla.F90 sourcefile~gvec.f90 gvec.F90 sourcefile~cla.f90->sourcefile~gvec.f90 sourcefile~cla.f90->sourcefile~gvec_to_jorek.f90 sourcefile~convert_gvec_to_castor3d.f90 convert_gvec_to_castor3d.F90 sourcefile~convert_gvec_to_jorek.f90 convert_gvec_to_jorek.F90 sourcefile~cubic_spline.f90 cubic_spline.F90 sourcefile~cubic_spline.f90->sourcefile~analyze.f90 sourcefile~cubic_spline.f90->sourcefile~mhd3d.f90 sourcefile~vmec.f90 vmec.F90 sourcefile~cubic_spline.f90->sourcefile~vmec.f90 sourcefile~vmec_readin.f90 vmec_readin.F90 sourcefile~cubic_spline.f90->sourcefile~vmec_readin.f90 sourcefile~cubic_spline.f90->sourcefile~vmec_vars.f90 sourcefile~fbase.f90 fbase.F90 sourcefile~fbase.f90->sourcefile~base.f90 sourcefile~fbase.f90->sourcefile~boundaryfromfile.f90 sourcefile~fbase.f90->sourcefile~gvec_to_jorek.f90 sourcefile~fbase.f90->sourcefile~gvec_to_jorek_vars.f90 sourcefile~fbase.f90->sourcefile~hmap_axisnb.f90 sourcefile~fbase.f90->sourcefile~lambda_solve.f90 sourcefile~fbase.f90->sourcefile~readstate.f90 sourcefile~fbase.f90->sourcefile~sfl_boozer.f90 sourcefile~fbase.f90->sourcefile~state.f90 sourcefile~fbase.f90->sourcefile~transform_sfl.f90 sourcefile~globals.f90 globals.F90 sourcefile~globals.f90->sourcefile~analyze.f90 sourcefile~globals.f90->sourcefile~analyze_vars.f90 sourcefile~globals.f90->sourcefile~base.f90 sourcefile~globals.f90->sourcefile~basis1d.f90 sourcefile~globals.f90->sourcefile~binding.f90 sourcefile~globals.f90->sourcefile~biotsavart.f90 sourcefile~globals.f90->sourcefile~boundaryfromfile.f90 sourcefile~globals.f90->sourcefile~c_hmap.f90 sourcefile~globals.f90->sourcefile~c_rprofile.f90 sourcefile~globals.f90->sourcefile~c_sol_var.f90 sourcefile~globals.f90->sourcefile~convert_gvec_to_castor3d.f90 sourcefile~globals.f90->sourcefile~convert_gvec_to_jorek.f90 sourcefile~globals.f90->sourcefile~cubic_spline.f90 sourcefile~globals.f90->sourcefile~fbase.f90 sourcefile~globals.f90->sourcefile~gvec.f90 sourcefile~globals.f90->sourcefile~gvec_post.f90 sourcefile~gvec_to_castor3d_vars.f90 gvec_to_castor3d_vars.F90 sourcefile~globals.f90->sourcefile~gvec_to_castor3d_vars.f90 sourcefile~gvec_to_gene_c_bind.f90 gvec_to_gene_c_bind.F90 sourcefile~globals.f90->sourcefile~gvec_to_gene_c_bind.f90 sourcefile~gvec_to_gene_vars.f90 gvec_to_gene_vars.F90 sourcefile~globals.f90->sourcefile~gvec_to_gene_vars.f90 sourcefile~gvec_to_hopr_vars.f90 gvec_to_hopr_vars.F90 sourcefile~globals.f90->sourcefile~gvec_to_hopr_vars.f90 sourcefile~globals.f90->sourcefile~gvec_to_jorek.f90 sourcefile~globals.f90->sourcefile~gvec_to_jorek_vars.f90 sourcefile~globals.f90->sourcefile~hmap.f90 sourcefile~globals.f90->sourcefile~hmap_axisnb.f90 sourcefile~globals.f90->sourcefile~hmap_cyl.f90 sourcefile~globals.f90->sourcefile~hmap_frenet.f90 sourcefile~globals.f90->sourcefile~hmap_knot.f90 sourcefile~globals.f90->sourcefile~hmap_rz.f90 sourcefile~io_netcdf.f90 io_netcdf.F90 sourcefile~globals.f90->sourcefile~io_netcdf.f90 sourcefile~globals.f90->sourcefile~lambda_solve.f90 sourcefile~linalg.f90 linalg.F90 sourcefile~globals.f90->sourcefile~linalg.f90 sourcefile~globals.f90->sourcefile~mhd3d.f90 sourcefile~globals.f90->sourcefile~mhd3d_evalfunc.f90 sourcefile~globals.f90->sourcefile~mhd3d_minimize.f90 sourcefile~globals.f90->sourcefile~mhd3d_vars.f90 sourcefile~mod_mpi.f90 mod_mpi.F90 sourcefile~globals.f90->sourcefile~mod_mpi.f90 sourcefile~newton.f90 newton.F90 sourcefile~globals.f90->sourcefile~newton.f90 sourcefile~output.f90 output.F90 sourcefile~globals.f90->sourcefile~output.f90 sourcefile~output_csv.f90 output_csv.F90 sourcefile~globals.f90->sourcefile~output_csv.f90 sourcefile~output_netcdf.f90 output_netcdf.F90 sourcefile~globals.f90->sourcefile~output_netcdf.f90 sourcefile~output_vars.f90 output_vars.F90 sourcefile~globals.f90->sourcefile~output_vars.f90 sourcefile~output_vtk.f90 output_vtk.F90 sourcefile~globals.f90->sourcefile~output_vtk.f90 sourcefile~readintools.f90 readintools.F90 sourcefile~globals.f90->sourcefile~readintools.f90 sourcefile~globals.f90->sourcefile~readstate.f90 sourcefile~globals.f90->sourcefile~readstate_vars.f90 sourcefile~globals.f90->sourcefile~restart.f90 sourcefile~restart_vars.f90 restart_vars.F90 sourcefile~globals.f90->sourcefile~restart_vars.f90 sourcefile~globals.f90->sourcefile~rprofile_bspline.f90 sourcefile~globals.f90->sourcefile~rprofile_polynomial.f90 sourcefile~globals.f90->sourcefile~run.f90 sourcefile~globals.f90->sourcefile~rungvec.f90 sourcefile~globals.f90->sourcefile~sbase.f90 sourcefile~globals.f90->sourcefile~sfl_boozer.f90 sourcefile~sgrid.f90 sgrid.F90 sourcefile~globals.f90->sourcefile~sgrid.f90 sourcefile~sll_m_assert.f90 sll_m_assert.F90 sourcefile~globals.f90->sourcefile~sll_m_assert.f90 sourcefile~globals.f90->sourcefile~sol_var_mhd3d.f90 sourcefile~globals.f90->sourcefile~state.f90 sourcefile~test_gvec_to_gene.f90 test_gvec_to_gene.F90 sourcefile~globals.f90->sourcefile~test_gvec_to_gene.f90 sourcefile~test_gvec_to_hopr.f90 test_gvec_to_hopr.F90 sourcefile~globals.f90->sourcefile~test_gvec_to_hopr.f90 sourcefile~globals.f90->sourcefile~transform_sfl.f90 sourcefile~globals.f90->sourcefile~vmec.f90 sourcefile~globals.f90->sourcefile~vmec_readin.f90 sourcefile~globals.f90->sourcefile~vmec_vars.f90 sourcefile~write_modes.f90 write_modes.F90 sourcefile~globals.f90->sourcefile~write_modes.f90 sourcefile~gvec_to_jorek.f90->sourcefile~convert_gvec_to_jorek.f90 sourcefile~gvec_to_jorek_vars.f90->sourcefile~gvec_to_jorek.f90 sourcefile~hmap.f90->sourcefile~lambda_solve.f90 sourcefile~hmap.f90->sourcefile~mhd3d.f90 sourcefile~hmap.f90->sourcefile~mhd3d_vars.f90 sourcefile~hmap.f90->sourcefile~readstate.f90 sourcefile~hmap.f90->sourcefile~readstate_vars.f90 sourcefile~hmap.f90->sourcefile~sfl_boozer.f90 sourcefile~hmap.f90->sourcefile~state.f90 sourcefile~hmap.f90->sourcefile~transform_sfl.f90 sourcefile~hmap_axisnb.f90->sourcefile~hmap.f90 sourcefile~hmap_cyl.f90->sourcefile~hmap.f90 sourcefile~hmap_frenet.f90->sourcefile~hmap.f90 sourcefile~hmap_knot.f90->sourcefile~hmap.f90 sourcefile~hmap_rz.f90->sourcefile~hmap.f90 sourcefile~io_netcdf.f90->sourcefile~boundaryfromfile.f90 sourcefile~io_netcdf.f90->sourcefile~hmap_axisnb.f90 sourcefile~io_netcdf.f90->sourcefile~output_netcdf.f90 sourcefile~lambda_solve.f90->sourcefile~mhd3d.f90 sourcefile~lambda_solve.f90->sourcefile~sfl_boozer.f90 sourcefile~linalg.f90->sourcefile~basis1d.f90 sourcefile~linalg.f90->sourcefile~lambda_solve.f90 sourcefile~linalg.f90->sourcefile~sbase.f90 sourcefile~linalg.f90->sourcefile~sfl_boozer.f90 sourcefile~mhd3d.f90->sourcefile~gvec_post.f90 sourcefile~mhd3d.f90->sourcefile~rungvec.f90 sourcefile~mhd3d.f90->sourcefile~state.f90 sourcefile~mhd3d_evalfunc.f90->sourcefile~gvec_post.f90 sourcefile~mhd3d_evalfunc.f90->sourcefile~mhd3d.f90 sourcefile~mhd3d_evalfunc.f90->sourcefile~mhd3d_minimize.f90 sourcefile~mhd3d_evalfunc.f90->sourcefile~restart.f90 sourcefile~mhd3d_minimize.f90->sourcefile~mhd3d.f90 sourcefile~mhd3d_vars.f90->sourcefile~analyze.f90 sourcefile~mhd3d_vars.f90->sourcefile~mhd3d.f90 sourcefile~mhd3d_vars.f90->sourcefile~mhd3d_evalfunc.f90 sourcefile~mhd3d_vars.f90->sourcefile~restart.f90 sourcefile~mhd3d_vars.f90->sourcefile~state.f90 sourcefile~mod_mpi.f90->sourcefile~analyze.f90 sourcefile~mod_mpi.f90->sourcefile~gvec.f90 sourcefile~mod_mpi.f90->sourcefile~gvec_post.f90 sourcefile~mod_mpi.f90->sourcefile~hmap_axisnb.f90 sourcefile~mod_mpi.f90->sourcefile~mhd3d.f90 sourcefile~mod_mpi.f90->sourcefile~mhd3d_evalfunc.f90 sourcefile~mod_mpi.f90->sourcefile~readintools.f90 sourcefile~mod_mpi.f90->sourcefile~restart.f90 sourcefile~mod_mpi.f90->sourcefile~run.f90 sourcefile~mod_mpi.f90->sourcefile~state.f90 sourcefile~mod_timings.f90 mod_timings.F90 sourcefile~perf2ftimings.f90 perf2ftimings.F90 sourcefile~mod_timings.f90->sourcefile~perf2ftimings.f90 sourcefile~newton.f90->sourcefile~sfl_boozer.f90 sourcefile~newton.f90->sourcefile~transform_sfl.f90 sourcefile~output.f90->sourcefile~gvec_post.f90 sourcefile~output.f90->sourcefile~run.f90 sourcefile~output.f90->sourcefile~rungvec.f90 sourcefile~output.f90->sourcefile~state.f90 sourcefile~output_csv.f90->sourcefile~analyze.f90 sourcefile~output_csv.f90->sourcefile~hmap_axisnb.f90 sourcefile~output_csv.f90->sourcefile~hmap_frenet.f90 sourcefile~output_csv.f90->sourcefile~write_modes.f90 sourcefile~output_netcdf.f90->sourcefile~hmap_axisnb.f90 sourcefile~output_netcdf.f90->sourcefile~hmap_frenet.f90 sourcefile~output_vars.f90->sourcefile~analyze.f90 sourcefile~output_vars.f90->sourcefile~gvec_post.f90 sourcefile~output_vars.f90->sourcefile~mhd3d_minimize.f90 sourcefile~output_vars.f90->sourcefile~output.f90 sourcefile~output_vars.f90->sourcefile~restart.f90 sourcefile~output_vars.f90->sourcefile~state.f90 sourcefile~output_vtk.f90->sourcefile~analyze.f90 sourcefile~output_vtk.f90->sourcefile~gvec_to_gene_c_bind.f90 sourcefile~output_vtk.f90->sourcefile~hmap_axisnb.f90 sourcefile~output_vtk.f90->sourcefile~hmap_frenet.f90 sourcefile~readintools.f90->sourcefile~analyze.f90 sourcefile~readintools.f90->sourcefile~gvec_post.f90 sourcefile~readintools.f90->sourcefile~hmap_axisnb.f90 sourcefile~readintools.f90->sourcefile~hmap_cyl.f90 sourcefile~readintools.f90->sourcefile~hmap_frenet.f90 sourcefile~readintools.f90->sourcefile~hmap_knot.f90 sourcefile~readintools.f90->sourcefile~mhd3d.f90 sourcefile~readintools.f90->sourcefile~output.f90 sourcefile~readintools.f90->sourcefile~run.f90 sourcefile~readintools.f90->sourcefile~rungvec.f90 sourcefile~readintools.f90->sourcefile~state.f90 sourcefile~readintools.f90->sourcefile~vmec.f90 sourcefile~readstate.f90->sourcefile~gvec_to_jorek.f90 sourcefile~readstate.f90->sourcefile~restart.f90 sourcefile~readstate_vars.f90->sourcefile~gvec_post.f90 sourcefile~readstate_vars.f90->sourcefile~gvec_to_jorek.f90 sourcefile~readstate_vars.f90->sourcefile~readstate.f90 sourcefile~readstate_vars.f90->sourcefile~restart.f90 sourcefile~readstate_vars.f90->sourcefile~state.f90 sourcefile~restart.f90->sourcefile~gvec_post.f90 sourcefile~restart.f90->sourcefile~mhd3d.f90 sourcefile~restart.f90->sourcefile~mhd3d_minimize.f90 sourcefile~restart.f90->sourcefile~run.f90 sourcefile~restart.f90->sourcefile~rungvec.f90 sourcefile~restart.f90->sourcefile~state.f90 sourcefile~restart_vars.f90->sourcefile~mhd3d.f90 sourcefile~restart_vars.f90->sourcefile~restart.f90 sourcefile~rprofile_bspline.f90->sourcefile~mhd3d.f90 sourcefile~rprofile_bspline.f90->sourcefile~vmec.f90 sourcefile~rprofile_polynomial.f90->sourcefile~mhd3d.f90 sourcefile~rungvec.f90->sourcefile~gvec.f90 sourcefile~rungvec.f90->sourcefile~run.f90 sourcefile~sbase.f90->sourcefile~base.f90 sourcefile~sbase.f90->sourcefile~readstate.f90 sourcefile~sbase.f90->sourcefile~readstate_vars.f90 sourcefile~sfl_boozer.f90->sourcefile~state.f90 sourcefile~sfl_boozer.f90->sourcefile~transform_sfl.f90 sourcefile~sgrid.f90->sourcefile~base.f90 sourcefile~sgrid.f90->sourcefile~mhd3d.f90 sourcefile~sgrid.f90->sourcefile~mhd3d_vars.f90 sourcefile~sgrid.f90->sourcefile~readstate.f90 sourcefile~sgrid.f90->sourcefile~readstate_vars.f90 sourcefile~sgrid.f90->sourcefile~restart.f90 sourcefile~sgrid.f90->sourcefile~sbase.f90 sourcefile~sgrid.f90->sourcefile~transform_sfl.f90 sourcefile~sll_m_bsplines.f90 sll_m_bsplines.F90 sourcefile~sll_m_assert.f90->sourcefile~sll_m_bsplines.f90 sourcefile~sll_m_bsplines_base.f90 sll_m_bsplines_base.F90 sourcefile~sll_m_assert.f90->sourcefile~sll_m_bsplines_base.f90 sourcefile~sll_m_bsplines_non_uniform.f90 sll_m_bsplines_non_uniform.F90 sourcefile~sll_m_assert.f90->sourcefile~sll_m_bsplines_non_uniform.f90 sourcefile~sll_m_bsplines_uniform.f90 sll_m_bsplines_uniform.F90 sourcefile~sll_m_assert.f90->sourcefile~sll_m_bsplines_uniform.f90 sourcefile~sll_m_spline_1d.f90 sll_m_spline_1d.F90 sourcefile~sll_m_assert.f90->sourcefile~sll_m_spline_1d.f90 sourcefile~sll_m_spline_interpolator_1d.f90 sll_m_spline_interpolator_1d.F90 sourcefile~sll_m_assert.f90->sourcefile~sll_m_spline_interpolator_1d.f90 sourcefile~sll_m_spline_matrix_banded.f90 sll_m_spline_matrix_banded.F90 sourcefile~sll_m_assert.f90->sourcefile~sll_m_spline_matrix_banded.f90 sourcefile~sll_m_spline_matrix_dense.f90 sll_m_spline_matrix_dense.F90 sourcefile~sll_m_assert.f90->sourcefile~sll_m_spline_matrix_dense.f90 sourcefile~sll_m_boundary_condition_descriptors.f90 sll_m_boundary_condition_descriptors.F90 sourcefile~sll_m_boundary_condition_descriptors.f90->sourcefile~sbase.f90 sourcefile~sll_m_boundary_condition_descriptors.f90->sourcefile~sll_m_spline_interpolator_1d.f90 sourcefile~sll_m_bsplines.f90->sourcefile~cubic_spline.f90 sourcefile~sll_m_bsplines.f90->sourcefile~rprofile_bspline.f90 sourcefile~sll_m_bsplines.f90->sourcefile~sbase.f90 sourcefile~sll_m_bsplines_base.f90->sourcefile~sll_m_bsplines.f90 sourcefile~sll_m_bsplines_base.f90->sourcefile~sll_m_bsplines_non_uniform.f90 sourcefile~sll_m_bsplines_base.f90->sourcefile~sll_m_bsplines_uniform.f90 sourcefile~sll_m_bsplines_base.f90->sourcefile~sll_m_spline_1d.f90 sourcefile~sll_m_bsplines_base.f90->sourcefile~sll_m_spline_interpolator_1d.f90 sourcefile~sll_m_bsplines_non_uniform.f90->sourcefile~sll_m_bsplines.f90 sourcefile~sll_m_bsplines_uniform.f90->sourcefile~sll_m_bsplines.f90 sourcefile~sll_m_errors.f90 sll_m_errors.F90 sourcefile~sll_m_errors.f90->sourcefile~sll_m_bsplines.f90 sourcefile~sll_m_errors.f90->sourcefile~sll_m_bsplines_uniform.f90 sourcefile~sll_m_errors.f90->sourcefile~sll_m_spline_interpolator_1d.f90 sourcefile~sll_m_spline_matrix.f90 sll_m_spline_matrix.F90 sourcefile~sll_m_errors.f90->sourcefile~sll_m_spline_matrix.f90 sourcefile~sll_m_errors.f90->sourcefile~sll_m_spline_matrix_banded.f90 sourcefile~sll_m_errors.f90->sourcefile~sll_m_spline_matrix_dense.f90 sourcefile~sll_m_spline_1d.f90->sourcefile~sll_m_spline_interpolator_1d.f90 sourcefile~sll_m_spline_interpolator_1d.f90->sourcefile~sbase.f90 sourcefile~sll_m_spline_matrix.f90->sourcefile~cubic_spline.f90 sourcefile~sll_m_spline_matrix.f90->sourcefile~mhd3d_evalfunc.f90 sourcefile~sll_m_spline_matrix.f90->sourcefile~sbase.f90 sourcefile~sll_m_spline_matrix.f90->sourcefile~sll_m_spline_interpolator_1d.f90 sourcefile~sll_m_spline_matrix_banded.f90->sourcefile~mhd3d_evalfunc.f90 sourcefile~sll_m_spline_matrix_banded.f90->sourcefile~sll_m_spline_matrix.f90 sourcefile~sll_m_spline_matrix_base.f90 sll_m_spline_matrix_base.F90 sourcefile~sll_m_spline_matrix_base.f90->sourcefile~sll_m_spline_matrix.f90 sourcefile~sll_m_spline_matrix_base.f90->sourcefile~sll_m_spline_matrix_banded.f90 sourcefile~sll_m_spline_matrix_base.f90->sourcefile~sll_m_spline_matrix_dense.f90 sourcefile~sll_m_spline_matrix_dense.f90->sourcefile~sll_m_spline_matrix.f90 sourcefile~sll_m_working_precision.f90 sll_m_working_precision.F90 sourcefile~sll_m_working_precision.f90->sourcefile~sll_m_boundary_condition_descriptors.f90 sourcefile~sll_m_working_precision.f90->sourcefile~sll_m_bsplines.f90 sourcefile~sll_m_working_precision.f90->sourcefile~sll_m_bsplines_base.f90 sourcefile~sll_m_working_precision.f90->sourcefile~sll_m_bsplines_non_uniform.f90 sourcefile~sll_m_working_precision.f90->sourcefile~sll_m_bsplines_uniform.f90 sourcefile~sll_m_working_precision.f90->sourcefile~sll_m_spline_1d.f90 sourcefile~sll_m_working_precision.f90->sourcefile~sll_m_spline_interpolator_1d.f90 sourcefile~sll_m_working_precision.f90->sourcefile~sll_m_spline_matrix.f90 sourcefile~sll_m_working_precision.f90->sourcefile~sll_m_spline_matrix_banded.f90 sourcefile~sll_m_working_precision.f90->sourcefile~sll_m_spline_matrix_base.f90 sourcefile~sll_m_working_precision.f90->sourcefile~sll_m_spline_matrix_dense.f90 sourcefile~sol_var_mhd3d.f90->sourcefile~analyze.f90 sourcefile~sol_var_mhd3d.f90->sourcefile~mhd3d.f90 sourcefile~sol_var_mhd3d.f90->sourcefile~mhd3d_evalfunc.f90 sourcefile~sol_var_mhd3d.f90->sourcefile~mhd3d_minimize.f90 sourcefile~sol_var_mhd3d.f90->sourcefile~mhd3d_vars.f90 sourcefile~sol_var_mhd3d.f90->sourcefile~restart.f90 sourcefile~transform_sfl.f90->sourcefile~gvec_to_castor3d_vars.f90 sourcefile~transform_sfl.f90->sourcefile~gvec_to_gene_vars.f90 sourcefile~transform_sfl.f90->sourcefile~gvec_to_hopr_vars.f90 sourcefile~transform_sfl.f90->sourcefile~state.f90 sourcefile~vmec.f90->sourcefile~analyze.f90 sourcefile~vmec.f90->sourcefile~mhd3d.f90 sourcefile~vmec_readin.f90->sourcefile~analyze.f90 sourcefile~vmec_readin.f90->sourcefile~mhd3d.f90 sourcefile~vmec_readin.f90->sourcefile~vmec.f90 sourcefile~vmec_vars.f90->sourcefile~analyze.f90 sourcefile~vmec_vars.f90->sourcefile~mhd3d.f90 sourcefile~vmec_vars.f90->sourcefile~vmec.f90 sourcefile~write_modes.f90->sourcefile~analyze.f90
Help