Skip to content

Instantly share code, notes, and snippets.

@luzpaz

luzpaz/Calculix-v2.19-typos.patch

Created March 31, 2022 13:28
Show Gist options
  • Save luzpaz/f210b177c51ac4bd5418e46b51fddc38 to your computer and use it in GitHub Desktop.
Save luzpaz/f210b177c51ac4bd5418e46b51fddc38 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Calculix-v2.19-typos.patch
From d23b1d79362b64690dbe17cfb75f152e183ea4b1 Mon Sep 17 00:00:00 2001
From: luz paz <[email protected]>
Date: Thu, 31 Mar 2022 09:22:00 -0400
Subject: [PATCH] Fix various documentation and source comment typos
Signed-off-by: luz paz <[email protected]>
---
ccx_2.19/src/CalculiX.h | 4 ++--
ccx_2.19/src/README.INSTALL | 2 +-
ccx_2.19/src/add_rect.c | 6 +++---
ccx_2.19/src/adjacentbounodes.f | 2 +-
ccx_2.19/src/anisomaxwavspd.f | 2 +-
ccx_2.19/src/arpackcs.c | 2 +-
ccx_2.19/src/basis.f | 2 +-
ccx_2.19/src/bounadd.f | 4 ++--
ccx_2.19/src/bounaddf.f | 2 +-
ccx_2.19/src/buildtquad.c | 2 +-
ccx_2.19/src/calcstabletimeincvol.f | 8 ++++----
ccx_2.19/src/cavity_refine.f | 2 +-
ccx_2.19/src/cavityext_refine.f | 4 ++--
ccx_2.19/src/cd_bleedtapping.f | 2 +-
ccx_2.19/src/cd_chamfer.f | 2 +-
ccx_2.19/src/cd_lichtarowicz.f | 2 +-
ccx_2.19/src/cd_ms_ms.f | 4 ++--
ccx_2.19/src/cd_own_albers.f | 2 +-
ccx_2.19/src/cd_pk_albers.f | 2 +-
ccx_2.19/src/cd_pk_ms.f | 2 +-
ccx_2.19/src/characteristic.f | 2 +-
ccx_2.19/src/checkconvergence.c | 4 ++--
ccx_2.19/src/checkimpacts.f | 2 +-
ccx_2.19/src/compfluidfem.c | 2 +-
ccx_2.19/src/contact.c | 2 +-
ccx_2.19/src/contactmortar.c | 6 +++---
ccx_2.19/src/couplings.f | 2 +-
ccx_2.19/src/createmddof.f | 2 +-
ccx_2.19/src/createtele.f | 2 +-
ccx_2.19/src/createtele_lin.f | 2 +-
ccx_2.19/src/createteleinv.f | 2 +-
ccx_2.19/src/createteleinv_lin.f | 2 +-
ccx_2.19/src/cyclicsymmetrymodels.f | 2 +-
ccx_2.19/src/dlz.f | 2 +-
ccx_2.19/src/dqag.f | 4 ++--
ccx_2.19/src/dualshape3tri.f | 2 +-
ccx_2.19/src/dualshape4q.f | 2 +-
ccx_2.19/src/dualshape6tritilde.f | 2 +-
ccx_2.19/src/dualshape6tritilde_lin.f | 2 +-
ccx_2.19/src/dualshape8qtilde.f | 2 +-
ccx_2.19/src/dynboun.c | 6 +++---
ccx_2.19/src/e_c3d_us45.f | 4 ++--
ccx_2.19/src/expand.c | 6 +++---
ccx_2.19/src/external.c | 6 +++---
ccx_2.19/src/faceinfo.f | 2 +-
ccx_2.19/src/fminsirefine.f | 10 +++++-----
ccx_2.19/src/forcadd.f | 2 +-
ccx_2.19/src/gapconductances.f | 2 +-
ccx_2.19/src/gasmechbc.f | 2 +-
ccx_2.19/src/gaspipe_fanno.f | 2 +-
ccx_2.19/src/gencontelem_n2f.f | 2 +-
ccx_2.19/src/gendualcoeffs.f | 4 ++--
ccx_2.19/src/genfirstactif.f | 2 +-
ccx_2.19/src/genislavactdof.f | 2 +-
ccx_2.19/src/geometrictolerances.f | 2 +-
ccx_2.19/src/getnumberofnodes.f | 2 +-
ccx_2.19/src/hybsvd.f | 6 +++---
ccx_2.19/src/hyperelastics.f | 2 +-
ccx_2.19/src/inimortar.c | 6 +++---
ccx_2.19/src/initialcfdfem.f | 4 ++--
ccx_2.19/src/initialnet.f | 6 +++---
ccx_2.19/src/interpolatestatemain.c | 2 +-
ccx_2.19/src/interpolsubmodel.f | 2 +-
ccx_2.19/src/intersectionpoint.f | 2 +-
ccx_2.19/src/labyrinth.f | 4 ++--
ccx_2.19/src/mafilldmssmain.c | 2 +-
ccx_2.19/src/mafillsmmain.c | 2 +-
ccx_2.19/src/mafillsmmain_se.c | 2 +-
ccx_2.19/src/mastructcmatrix.c | 4 ++--
ccx_2.19/src/matrixsort.c | 2 +-
ccx_2.19/src/modifympc.f | 4 ++--
ccx_2.19/src/multimortar.c | 2 +-
ccx_2.19/src/normalsoninterface.f | 2 +-
ccx_2.19/src/normalsonsurface_robust.f | 2 +-
ccx_2.19/src/normalsonsurface_se.f | 2 +-
ccx_2.19/src/nortanslav.f | 6 +++---
ccx_2.19/src/objective_disp.f | 2 +-
ccx_2.19/src/objectivemain_se.c | 14 +++++++-------
ccx_2.19/src/onedint.f | 8 ++++----
ccx_2.19/src/pardiso.c | 2 +-
ccx_2.19/src/pardiso_as.c | 2 +-
ccx_2.19/src/pastix.c | 4 ++--
ccx_2.19/src/pcgsolver.c | 6 +++---
ccx_2.19/src/pk_cdi_r.f | 2 +-
ccx_2.19/src/precfdcyc.f | 2 +-
ccx_2.19/src/preinitialnet.f | 2 +-
ccx_2.19/src/premortar.c | 8 ++++----
ccx_2.19/src/pt2zpt1_rot.f | 2 +-
ccx_2.19/src/radflowload.c | 2 +-
ccx_2.19/src/randomval.f | 4 ++--
ccx_2.19/src/readfrd.c | 14 +++++++-------
ccx_2.19/src/readfrd.h | 2 +-
ccx_2.19/src/refinemesh.c | 4 ++--
ccx_2.19/src/regularization_gn_c.f | 4 ++--
ccx_2.19/src/regularization_gt_c.f | 4 ++--
ccx_2.19/src/regularization_slip_iwan.f | 2 +-
ccx_2.19/src/regularization_slip_lin.f | 2 +-
ccx_2.19/src/restartwrite.f | 2 +-
ccx_2.19/src/restrictor.f | 2 +-
ccx_2.19/src/resultnet.f | 2 +-
ccx_2.19/src/results.c | 2 +-
ccx_2.19/src/results_se.c | 2 +-
ccx_2.19/src/resultsinduction.c | 2 +-
ccx_2.19/src/resultsmech_u1.f | 4 ++--
ccx_2.19/src/resultsmech_us3.f | 4 ++--
ccx_2.19/src/resultsmech_us45.f | 6 +++---
ccx_2.19/src/resultsstr.c | 2 +-
ccx_2.19/src/rhsmain.c | 2 +-
ccx_2.19/src/robustdesign.c | 2 +-
ccx_2.19/src/shape6tritilde.f | 2 +-
ccx_2.19/src/shape6tritilde_lin.f | 2 +-
ccx_2.19/src/shape8qtilde.f | 2 +-
ccx_2.19/src/shape8qtilde_lin.f | 2 +-
ccx_2.19/src/slavintmortar.f | 8 ++++----
ccx_2.19/src/slavintpoints.f | 4 ++--
ccx_2.19/src/spooles.h | 2 +-
ccx_2.19/src/storecontactprop.f | 4 ++--
ccx_2.19/src/stressintensity.f | 2 +-
ccx_2.19/src/stressmortar.c | 6 +++---
ccx_2.19/src/tee.f | 6 +++---
ccx_2.19/src/thickness.f | 2 +-
ccx_2.19/src/topocfdfem.f | 4 ++--
ccx_2.19/src/trafontmortar2.c | 13 ++++++-------
ccx_2.19/src/transformatrix.f | 4 ++--
ccx_2.19/src/treatmasterface_mortar.f | 2 +-
ccx_2.19/src/twodint.f | 18 +++++++++---------
ccx_2.19/src/umpc_dist.f | 2 +-
ccx_2.19/src/umpc_mean_rot.f | 2 +-
ccx_2.19/src/umpc_user.f | 2 +-
ccx_2.19/src/uncouptempdisps.f | 2 +-
ccx_2.19/src/updatecontpen.f | 2 +-
ccx_2.19/src/us3_sub.f | 4 ++--
ccx_2.19/src/usermpc.f | 2 +-
ccx_2.19/src/vortex.f | 2 +-
ccx_2.19/src/zeta_calc.f | 6 +++---
ccx_2.19/src/zienzhu.f | 2 +-
136 files changed, 229 insertions(+), 230 deletions(-)
diff --git a/ccx_2.19/src/CalculiX.h b/ccx_2.19/src/CalculiX.h
index 9b55eb2..3e4138d 100644
--- a/ccx_2.19/src/CalculiX.h
+++ b/ccx_2.19/src/CalculiX.h
@@ -48,10 +48,10 @@
/* memory allocation, reallocation, freeing */
-/* allocating memory for double reals and initializing it to zero (parallell) */
+/* allocating memory for double reals and initializing it to zero (parallel) */
#define DNEW(a,b,c) {a=(b *)u_malloc((c)*sizeof(b),__FILE__,__LINE__,#a); \
DOUMEMSET(a,0,c,0.);}
-/* allocating memory for ITG and initializing it to zero (parallell) */
+/* allocating memory for ITG and initializing it to zero (parallel) */
#define INEW(a,b,c) {a=(b *)u_malloc((c)*sizeof(b),__FILE__,__LINE__,#a); \
ITGMEMSET(a,0,c,0);}
/* allocating memory without initialization */
diff --git a/ccx_2.19/src/README.INSTALL b/ccx_2.19/src/README.INSTALL
index fa23a3a..2f19d0c 100755
--- a/ccx_2.19/src/README.INSTALL
+++ b/ccx_2.19/src/README.INSTALL
@@ -372,5 +372,5 @@ DEBUGGING INFORMATION
Starting with version 2.8 the environment variable
CCX\_LOG\_ALLOC has been introduced. If set to 1 (default is zero) one gets
detailed information on all allocated, reallocated and deallocated fields
-during the executation of CalculiX. This may be particularly important during
+during the execution of CalculiX. This may be particularly important during
debugging of segmentation faults.
diff --git a/ccx_2.19/src/add_rect.c b/ccx_2.19/src/add_rect.c
index d6e82a7..dd0df49 100644
--- a/ccx_2.19/src/add_rect.c
+++ b/ccx_2.19/src/add_rect.c
@@ -28,17 +28,17 @@
*
* [in] au_1 sparse matrix A
* [in] irow_1 row numbers for matrix A
- * [in] jq_1 colum numbers for matrix A
+ * [in] jq_1 column numbers for matrix A
* [in] n_1 # rows for matrix A
* [in] m_1 # columns for matrix A
* [in] au_2 sparse matrix B
* [in] irow_2 row numbers for matrix B
- * [in] jq_2 colum numbers for matrix B
+ * [in] jq_2 column numbers for matrix B
* [in] n_2 # rows for matrix B
* [in] m_2 # columns for matrix B
* [out] au_rp sparse matrix C
* [out] irow_rp row numbers for matrix C
- * [out] jq_r colum numbers for matrix C
+ * [out] jq_r column numbers for matrix C
* [out] nzs # nonzero entries in C
*
*/
diff --git a/ccx_2.19/src/adjacentbounodes.f b/ccx_2.19/src/adjacentbounodes.f
index bd89f1f..e01283d 100644
--- a/ccx_2.19/src/adjacentbounodes.f
+++ b/ccx_2.19/src/adjacentbounodes.f
@@ -154,7 +154,7 @@ c write(*,*) node
! to the structure)
!
! if subsurface crack:
-! node is an arbitary node belonging to the crack front
+! node is an arbitrary node belonging to the crack front
!
! finding the relative node number
!
diff --git a/ccx_2.19/src/anisomaxwavspd.f b/ccx_2.19/src/anisomaxwavspd.f
index 3354747..e4ec8ad 100644
--- a/ccx_2.19/src/anisomaxwavspd.f
+++ b/ccx_2.19/src/anisomaxwavspd.f
@@ -38,7 +38,7 @@
! rho: double - Density of the material
!
! iorth: INTEGER - if the value is 1 : material is iorthtropic
-! for other vaules: material is anisotropic
+! for other values : material is anisotropic
!
! OUTPUT:
!
diff --git a/ccx_2.19/src/arpackcs.c b/ccx_2.19/src/arpackcs.c
index bd1b4d8..c81b991 100644
--- a/ccx_2.19/src/arpackcs.c
+++ b/ccx_2.19/src/arpackcs.c
@@ -2407,7 +2407,7 @@ void arpackcs(double *co, ITG *nk, ITG **konp, ITG **ipkonp, char **lakonp,
if(igreen==1) *nmethod=13;
- /* change on 20210510: if the nodal diameter exeeds half the
+ /* change on 20210510: if the nodal diameter exceeds half the
number of segments change the sign of the axis */
// if(nm>cs[0]/2){
diff --git a/ccx_2.19/src/basis.f b/ccx_2.19/src/basis.f
index 3429d6e..15ff786 100644
--- a/ccx_2.19/src/basis.f
+++ b/ccx_2.19/src/basis.f
@@ -95,7 +95,7 @@
! value(nfield) interpolated values (max. nfield values)
! ratio(nterms) coefficients for the interpolation within the parent
! element
-! nterms number of coeffients in the interpolation. This is
+! nterms number of coefficients in the interpolation. This is
! also the number of nodes belonging to the parent
! element
! konl(nterms) node numbers of the parent element ielemnr
diff --git a/ccx_2.19/src/bounadd.f b/ccx_2.19/src/bounadd.f
index 6f20aa6..a23345a 100644
--- a/ccx_2.19/src/bounadd.f
+++ b/ccx_2.19/src/bounadd.f
@@ -83,7 +83,7 @@ c idof=8*(node-1)+ii+1
!
! change: transformations on rotations are taken into account
! by the normal of the mean rotation MPC, not by expanding the
-! MPC in Carthesian coordinates
+! MPC in Cartesian coordinates
!
if((itr.eq.0).or.(ii.eq.0).or.(ii.gt.3)) then
!
@@ -161,7 +161,7 @@ c i=7
ilboun(id+1)=nboun
else
!
-! transformation applies: SPC is MPC in global carthesian
+! transformation applies: SPC is MPC in global cartesian
! coordinates
!
call transformatrix(trab(1,itr),co(1,node),a)
diff --git a/ccx_2.19/src/bounaddf.f b/ccx_2.19/src/bounaddf.f
index e2c6ac7..524c939 100644
--- a/ccx_2.19/src/bounaddf.f
+++ b/ccx_2.19/src/bounaddf.f
@@ -144,7 +144,7 @@ c write(*,*) 'bounaddf boun',iface,i,val,idof
ilboun(id+1)=nboun
else
!
-! transformation applies: SPC is MPC in global carthesian
+! transformation applies: SPC is MPC in global cartesian
! coordinates
!
! number of nodes belonging to the face
diff --git a/ccx_2.19/src/buildtquad.c b/ccx_2.19/src/buildtquad.c
index 874b8de..4fef3cb 100644
--- a/ccx_2.19/src/buildtquad.c
+++ b/ccx_2.19/src/buildtquad.c
@@ -27,7 +27,7 @@
* see phd-thesis Sitzmann Chapter 4.1
* Author: Saskia Sitzmann
*
- * [in] ntie number of contraints
+ * [in] ntie number of constraints
* [in] ipkon pointer into field kon...
* [in] kon .. for element i storing the connectivity list of elem. in succ. order
* [in] nk number of nodes
diff --git a/ccx_2.19/src/calcstabletimeincvol.f b/ccx_2.19/src/calcstabletimeincvol.f
index 7b08d9d..06d6d7f 100644
--- a/ccx_2.19/src/calcstabletimeincvol.f
+++ b/ccx_2.19/src/calcstabletimeincvol.f
@@ -26,7 +26,7 @@
! **************
! ------------Wavespeed calculation------------------------CARLO MT
! Calculates the propagation wave speed in a material, selecting
-! appropiate procedure between isotropic, single crystals, and
+! appropriate procedure between isotropic, single crystals, and
! anisotropic materials. All other cases of orthotropy are treated
! as anisotropic.
@@ -103,7 +103,7 @@
bet=(1.d0-alpha)*(1.d0-alpha)/4.d0
gam=0.5d0-alpha
!
-! Calcualtion of Omega Critical
+! Calculation of Omega Critical
! Om_cr=dt*freq_max
critom=dsqrt(damping*damping*(1.d0+2.d0*alpha*(1.d0-gam))
& *(1.d0+2.d0*alpha*(1.d0-gam))
@@ -230,7 +230,7 @@
call shape6w(xi,et,ze,xl,xsj,shp,iflag)
endif
!
-! ------------Wavespeed calcualtion--------------------------------
+! ------------Wavespeed calculation--------------------------------
! calculating the temperature in the integration point
!
kk=1 ! Only 1 integration point is considered, CENTER
@@ -322,7 +322,7 @@
!
wavespeed(imat)=wavspd
!
-! ------------Critical time step calcualtion-----------------------
+! ------------Critical time step calculation-----------------------
!
! Divides volume accordingly per geometry of element
! Carlo MT proposal
diff --git a/ccx_2.19/src/cavity_refine.f b/ccx_2.19/src/cavity_refine.f
index 17933b5..a17fe98 100644
--- a/ccx_2.19/src/cavity_refine.f
+++ b/ccx_2.19/src/cavity_refine.f
@@ -540,7 +540,7 @@ c write(*,*) ' zero elements'
else
!
! no new mesh, only numbers may have changed:
-! necav elemetns
+! necav elements
!
do i=1,necav
iel=inewel(i)
diff --git a/ccx_2.19/src/cavityext_refine.f b/ccx_2.19/src/cavityext_refine.f
index fa3cd51..3431c5b 100644
--- a/ccx_2.19/src/cavityext_refine.f
+++ b/ccx_2.19/src/cavityext_refine.f
@@ -277,7 +277,7 @@ c write(*,*) 'cavity add2',ibase,nfcav
enddo
enddo
!
-! check for too smal elements (too small height)
+! check for too small elements (too small height)
!
! restore the surface coordinates of the node
!
@@ -720,7 +720,7 @@ c call exit(201)
else
!
! no new mesh, only numbers may have changed:
-! necav elemetns
+! necav elements
!
do i=1,necav
iel=inewel(i)
diff --git a/ccx_2.19/src/cd_bleedtapping.f b/ccx_2.19/src/cd_bleedtapping.f
index c9fe542..3f37535 100644
--- a/ccx_2.19/src/cd_bleedtapping.f
+++ b/ccx_2.19/src/cd_bleedtapping.f
@@ -86,7 +86,7 @@
elseif(curve.gt.2) then
write(*,*)
write(*,*) 'no characteristic available under this index'
- write(*,*) 'cd is implicitely assumed equal to 1'
+ write(*,*) 'cd is implicitly assumed equal to 1'
cd=1.d0
return
endif
diff --git a/ccx_2.19/src/cd_chamfer.f b/ccx_2.19/src/cd_chamfer.f
index ac8d69c..6c7050e 100644
--- a/ccx_2.19/src/cd_chamfer.f
+++ b/ccx_2.19/src/cd_chamfer.f
@@ -20,7 +20,7 @@
!
! calculates the discharge coefficient of holes with chamfered inlets
! using N. Hay and A.Spencer
-! "Disharge coefficient of Cooling holes with radiused and chamfered
+! "Discharge coefficient of Cooling holes with radiused and chamfered
! inlets" ASME 91-GT-269
!
! Nota:the radius correction is not used here due to the unreliability
diff --git a/ccx_2.19/src/cd_lichtarowicz.f b/ccx_2.19/src/cd_lichtarowicz.f
index e18d58c..44d43fd 100644
--- a/ccx_2.19/src/cd_lichtarowicz.f
+++ b/ccx_2.19/src/cd_lichtarowicz.f
@@ -17,7 +17,7 @@
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
! This subroutines enables to calculate the reynolds number correction after:
-! "Discharge coeffcients for incompressible non-cavitating flowthrough long orifices"
+! "Discharge coefficients for incompressible non-cavitating flowthrough long orifices"
! A. Lichtarowicz, R.K duggins and E. Markland
! Journal Mechanical Engineering Science , vol 7, No. 2, 1965
!
diff --git a/ccx_2.19/src/cd_ms_ms.f b/ccx_2.19/src/cd_ms_ms.f
index 2079176..9e0e29f 100644
--- a/ccx_2.19/src/cd_ms_ms.f
+++ b/ccx_2.19/src/cd_ms_ms.f
@@ -21,7 +21,7 @@
! This subroutine enables to calculate the discharge coefficient for an
! orifice (shap edged , rotating..) following the results obtained
! by Mcgreehan and Schotsch
-! The decription of the method can be found in :
+! The description of the method can be found in :
! "Flow characteristics of long orifices with rotation and
! corner radiusing"
! ASME 87-GT-162
@@ -48,7 +48,7 @@
cd=1.d0-fakt*(1.d0-cd)
cd=min(max(cd,0.d0),1.d0)
!
-! taking in account the lenght of the orifice
+! taking in account the length of the orifice
!
lkorr=xl-rad
q=lkorr/d
diff --git a/ccx_2.19/src/cd_own_albers.f b/ccx_2.19/src/cd_own_albers.f
index 31ff225..ea89edb 100644
--- a/ccx_2.19/src/cd_own_albers.f
+++ b/ccx_2.19/src/cd_own_albers.f
@@ -34,7 +34,7 @@
kappa=Kappa
cd=1.d0
write(*,*) '*WARNING while using subroutine cd_own_albers.f'
- write(*,*) 'cd implicitely taken equal to 1'
+ write(*,*) 'cd implicitly taken equal to 1'
!
return
diff --git a/ccx_2.19/src/cd_pk_albers.f b/ccx_2.19/src/cd_pk_albers.f
index 025b34d..2a2eb73 100644
--- a/ccx_2.19/src/cd_pk_albers.f
+++ b/ccx_2.19/src/cd_pk_albers.f
@@ -42,7 +42,7 @@
cd=1.d0
write(*,*) '*WARNING while using subroutine cd_pk_albers.f'
- write(*,*) 'cd implicitely taken equal to 1'
+ write(*,*) 'cd implicitly taken equal to 1'
!
return
end
diff --git a/ccx_2.19/src/cd_pk_ms.f b/ccx_2.19/src/cd_pk_ms.f
index a7a4773..131a728 100644
--- a/ccx_2.19/src/cd_pk_ms.f
+++ b/ccx_2.19/src/cd_pk_ms.f
@@ -61,7 +61,7 @@
endif
!
! if rotating orifice with Mac Greehan & Scotch
-! The decription of the method can be found in :
+! The description of the method can be found in :
! "Flow characteristics of long orifices with rotation and
! corner radiusing" ASME 87-GT-16
!
diff --git a/ccx_2.19/src/characteristic.f b/ccx_2.19/src/characteristic.f
index d66e67f..8c2b638 100644
--- a/ccx_2.19/src/characteristic.f
+++ b/ccx_2.19/src/characteristic.f
@@ -27,7 +27,7 @@
! massflow*dsqrt(T1)/Pt1=f((Pt1-Pt2)/Pt1) and T1=T2
! characteristics the subroutine proceeds using
! linear interpolation to estimate the values for the whole characteristic
-! note that the characteristic is implicitely containing the point (0,0)
+! note that the characteristic is implicitly containing the point (0,0)
!
! author: Yannick Muller
!
diff --git a/ccx_2.19/src/checkconvergence.c b/ccx_2.19/src/checkconvergence.c
index 53d26e7..6b91108 100644
--- a/ccx_2.19/src/checkconvergence.c
+++ b/ccx_2.19/src/checkconvergence.c
@@ -236,7 +236,7 @@ void checkconvergence(double *co, ITG *nk, ITG *kon, ITG *ipkon, char *lakon,
// deactivated on 22.03.2019
// energy/work may not be calculated correctly for forced BC
// (example: shaft)
- // following line deactiveted on 16.07.2021
+ // following line deactivated on 16.07.2021
// idivergence=1;
}else{
@@ -255,7 +255,7 @@ void checkconvergence(double *co, ITG *nk, ITG *kon, ITG *ipkon, char *lakon,
if((*nmethod==4)&&(*ithermal<2)&&(*uncoupled==0)&&(iconvergence==1)&&((*ne!=*ne0)||(*neini!=*ne0))){
- /* store temporarly the value of emax: in case of forced divergence
+ /* store the value of emax temporarily: in case of forced divergence
emax has to be reset. */
tmp=*emax;
diff --git a/ccx_2.19/src/checkimpacts.f b/ccx_2.19/src/checkimpacts.f
index 4a0a544..51495ae 100644
--- a/ccx_2.19/src/checkimpacts.f
+++ b/ccx_2.19/src/checkimpacts.f
@@ -36,7 +36,7 @@
! checkconvergence.
! cstate : vector containing contact data
! temax : max. natural period of oscillation
-! icase : flag to print debug informations
+! icase : flag to print debug information
! emax : maximum energy of the system over the ti-
! me history
! r : energy residual before contact (or re-
diff --git a/ccx_2.19/src/compfluidfem.c b/ccx_2.19/src/compfluidfem.c
index 01e184b..c20e1d9 100644
--- a/ccx_2.19/src/compfluidfem.c
+++ b/ccx_2.19/src/compfluidfem.c
@@ -195,7 +195,7 @@ void compfluidfem(double **cop,ITG *nk,ITG **ipkonp,ITG **konp,char **lakonp,
}
}
- // next line is to be inserted in a similar way for all other paralell parts
+ // next line is to be inserted in a similar way for all other parallel parts
if(*ne<num_cpus) num_cpus=*ne;
diff --git a/ccx_2.19/src/contact.c b/ccx_2.19/src/contact.c
index 7b396da..1e5a35c 100644
--- a/ccx_2.19/src/contact.c
+++ b/ccx_2.19/src/contact.c
@@ -46,7 +46,7 @@ void contact(ITG *ncont, ITG *ntie, char *tieset,ITG *nset,char *set,
/* next call is only for node-to-face penalty contact
setting up bordering planes for the master triangles;
- these planes are common between neighboring traingles */
+ these planes are common between neighboring triangles */
if(*mortar<=0){
diff --git a/ccx_2.19/src/contactmortar.c b/ccx_2.19/src/contactmortar.c
index 82ae255..af4f5bb 100644
--- a/ccx_2.19/src/contactmortar.c
+++ b/ccx_2.19/src/contactmortar.c
@@ -79,7 +79,7 @@
* [in] mi (1) max # of integration points per element (2) max degree of freedom per element
* [in] ipe (i) pointer to ime for node i
* [in] ime ... cataloging the edges with node i
- * [in] tietol (1,i) tie tolerance (2,i) contant interaction material definition
+ * [in] tietol (1,i) tie tolerance (2,i) constant interaction material definition
* [in] iflagact here: flag indicating if coupling matrices should be updated every iteration or only once per increment (==0)
* [in] cstress current Lagrange multiplier
* [in] cstressini Lagrange multiplier at start of the increment
@@ -419,7 +419,7 @@ void contactmortar(ITG *ncont,ITG *ntie,char *tieset,ITG *nset,char *set,
SFREE(xo);SFREE(yo);SFREE(zo);SFREE(x);SFREE(y);SFREE(z);SFREE(nx);
SFREE(ny);SFREE(nz);
- /* check SPC's and MPC's on slave nodes for compability and set all
+ /* check SPC's and MPC's on slave nodes for compatibility and set all
slave nodes involed in SPCs/MPCs to no-LM nodes */
FORTRAN(checkspcmpc,(ntie,tieset,islavnode,imastnode,nslavnode,nmastnode,
@@ -666,7 +666,7 @@ void contactmortar(ITG *ncont,ITG *ntie,char *tieset,ITG *nset,char *set,
the fields auc, adc, irowc, jqc and nzsc, bhat */
/* k needed in semi-smooth Newton in tangential direction:
- k=1 stick is assumed in all nodes, k=2 stick or slip is assummed
+ k=1 stick is assumed in all nodes, k=2 stick or slip is assumed
according to active set entry*/
if(*iit==1 && *iinc==1){k=1;}else{k=2;}
diff --git a/ccx_2.19/src/couplings.f b/ccx_2.19/src/couplings.f
index 8c7beb1..1bc9325 100644
--- a/ccx_2.19/src/couplings.f
+++ b/ccx_2.19/src/couplings.f
@@ -168,7 +168,7 @@
!
if(name(1:1).eq.' ') then
write(*,*)
- & '*ERROR reading *COUPLING: no CONTRAINT NAME given'
+ & '*ERROR reading *COUPLING: no CONSTRAINT NAME given'
write(*,*) ' '
call inputerror(inpc,ipoinpc,iline,
& "*COUPLING%",ier)
diff --git a/ccx_2.19/src/createmddof.f b/ccx_2.19/src/createmddof.f
index 0fc34a7..9642748 100644
--- a/ccx_2.19/src/createmddof.f
+++ b/ccx_2.19/src/createmddof.f
@@ -132,7 +132,7 @@ c enddo
!
if(nrset.eq.0) then
if(cyclicsymmetry.eq.1) then
- write(*,*) '*ERROR in createmddof: in a cylic'
+ write(*,*) '*ERROR in createmddof: in a cyclic'
write(*,*) ' symmetric modal dynamic or'
write(*,*) ' steady static dynamics calculation'
write(*,*) ' a node set MUST be defined on each'
diff --git a/ccx_2.19/src/createtele.f b/ccx_2.19/src/createtele.f
index cafe571..ae4ba7c 100644
--- a/ccx_2.19/src/createtele.f
+++ b/ccx_2.19/src/createtele.f
@@ -22,7 +22,7 @@
! Author: Saskia Sitzmann
!
! [in] ipkon pointer into field kon
-! [in] kon Field containing the connectivity of the elements in succesive order
+! [in] kon Field containing the connectivity of the elements in successive order
! [in] lakon element label
! [in] islavsurf islavsurf(1,i) slaveface i islavsurf(2,i) pointer into imastsurf and pmastsurf
! [out] contr field containing T_e contributions for current face
diff --git a/ccx_2.19/src/createtele_lin.f b/ccx_2.19/src/createtele_lin.f
index 638dcbe..18be49d 100644
--- a/ccx_2.19/src/createtele_lin.f
+++ b/ccx_2.19/src/createtele_lin.f
@@ -22,7 +22,7 @@
! Author:Saskia Sitzmann
!
! [in] ipkon pointer into field kon
-! [in] kon Field containing the connectivity of the elements in succesive order
+! [in] kon Field containing the connectivity of the elements in successive order
! [in] lakon element label
! [in] islavsurf islavsurf(1,i) slaveface i islavsurf(2,i) pointer into imastsurf and pmastsurf
! [out] contr field containing T_e contributions for current face
diff --git a/ccx_2.19/src/createteleinv.f b/ccx_2.19/src/createteleinv.f
index 64da0e6..e195a07 100644
--- a/ccx_2.19/src/createteleinv.f
+++ b/ccx_2.19/src/createteleinv.f
@@ -22,7 +22,7 @@
! Author: Saskia Sitzmann
!
! [in] ipkon pointer into field kon
-! [in] kon Field containing the connectivity of the elements in succesive order
+! [in] kon Field containing the connectivity of the elements in successive order
! [in] lakon element label
! [in] islavsurf islavsurf(1,i) slaveface i islavsurf(2,i) pointer into imastsurf and pmastsurf
! [out] contr field containing T_e contributions for current face
diff --git a/ccx_2.19/src/createteleinv_lin.f b/ccx_2.19/src/createteleinv_lin.f
index e5ceba7..c020313 100644
--- a/ccx_2.19/src/createteleinv_lin.f
+++ b/ccx_2.19/src/createteleinv_lin.f
@@ -22,7 +22,7 @@
! Author: Saskia Sitzmann
!
! [in] ipkon pointer into field kon
-! [in] kon Field containing the connectivity of the elements in succesive order
+! [in] kon Field containing the connectivity of the elements in successive order
! [in] lakon element label
! [in] islavsurf islavsurf(1,i) slaveface i islavsurf(2,i) pointer into imastsurf and pmastsurf
! [out] contr field containing T_e contributions for current face
diff --git a/ccx_2.19/src/cyclicsymmetrymodels.f b/ccx_2.19/src/cyclicsymmetrymodels.f
index af5d49b..a7ca12c 100644
--- a/ccx_2.19/src/cyclicsymmetrymodels.f
+++ b/ccx_2.19/src/cyclicsymmetrymodels.f
@@ -38,7 +38,7 @@
! cs(4,mcs): # nodes on the independent side (for fluids: upper bound)
! cs(5,mcs): # sectors to be plotted
! cs(6..8,mcs): first point on cyclic symmetry axis
-! cs(9..11,mcs): second point on cylic symmetry axis; turning
+! cs(9..11,mcs): second point on cyclic symmetry axis; turning
! the slave surface clockwise about the cyclic symmetry axis
! while looking from the first point to the second point one
! arrives at the master surface without leaving the body
diff --git a/ccx_2.19/src/dlz.f b/ccx_2.19/src/dlz.f
index 9c49f20..891b07c 100644
--- a/ccx_2.19/src/dlz.f
+++ b/ccx_2.19/src/dlz.f
@@ -333,7 +333,7 @@ C WHEN THE DENOMINATOR IS SMALL
210 CONTINUE
220 IF (I.GT.M) A(J,I-1) = (0.D0,0.D0)
C PERFORM TRANSFORMATIONS FROM RIGHT TO RESTORE B TO
-C TRIANGLULAR FORM
+C TRIANGULAR FORM
C APPLY TRANSFORMATIONS TO A
Z = B(J,I)
W = B(J,J)
diff --git a/ccx_2.19/src/dqag.f b/ccx_2.19/src/dqag.f
index 258d555..4db3215 100644
--- a/ccx_2.19/src/dqag.f
+++ b/ccx_2.19/src/dqag.f
@@ -968,7 +968,7 @@ c gauss-kronrod rule (resk), obtained by optimal
c addition of abscissae to the 15-point gauss
c rule (resg).
c
-c abserr - double precison
+c abserr - double precision
c estimate of the modulus of the modulus,
c which should not exceed abs(i-result)
c
@@ -1645,7 +1645,7 @@ c to the 30-point gauss rule
c
c wgk - weights of the 61-point kronrod rule
c
-c wg - weigths of the 30-point gauss rule
+c wg - weights of the 30-point gauss rule
c
c
c gauss quadrature weights and kronron quadrature abscissae and weights
diff --git a/ccx_2.19/src/dualshape3tri.f b/ccx_2.19/src/dualshape3tri.f
index ac07dde..945da5d 100644
--- a/ccx_2.19/src/dualshape3tri.f
+++ b/ccx_2.19/src/dualshape3tri.f
@@ -16,7 +16,7 @@
! along with this program; if not, write to the Free Software
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
-! function to evaluate dual shape funciton \f$ shape(\xi,\eta) \f$
+! function to evaluate dual shape function \f$ shape(\xi,\eta) \f$
!
! [in] xi xi-coordinate
! [in] et eta-coordinate
diff --git a/ccx_2.19/src/dualshape4q.f b/ccx_2.19/src/dualshape4q.f
index f200cad..98bc937 100644
--- a/ccx_2.19/src/dualshape4q.f
+++ b/ccx_2.19/src/dualshape4q.f
@@ -17,7 +17,7 @@
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
!
-! function to evaluate dual shape funciton \f$ shape(\xi,\eta) \f$
+! function to evaluate dual shape function \f$ shape(\xi,\eta) \f$
!
! [in] xi xi-coordinate
! [in] et eta-coordinate
diff --git a/ccx_2.19/src/dualshape6tritilde.f b/ccx_2.19/src/dualshape6tritilde.f
index 81c78d3..14c6b82 100644
--- a/ccx_2.19/src/dualshape6tritilde.f
+++ b/ccx_2.19/src/dualshape6tritilde.f
@@ -16,7 +16,7 @@
! along with this program; if not, write to the Free Software
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
-! function to evaluate shape funciton for quad-lin mortar method
+! function to evaluate shape function for quad-lin mortar method
! \f$ shape(\xi,\eta) \f$
! see phd-thesis Sitzmann Chapter 4.1.
!
diff --git a/ccx_2.19/src/dualshape6tritilde_lin.f b/ccx_2.19/src/dualshape6tritilde_lin.f
index b815b55..fa7631b 100644
--- a/ccx_2.19/src/dualshape6tritilde_lin.f
+++ b/ccx_2.19/src/dualshape6tritilde_lin.f
@@ -17,7 +17,7 @@
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
!
-! function to evaluate shape funciton for quad-lin mortar
+! function to evaluate shape function for quad-lin mortar
! method \f$ shape(\xi,\eta) \f$
! see phd-thesis Sitzmann Chapter 4.1.
diff --git a/ccx_2.19/src/dualshape8qtilde.f b/ccx_2.19/src/dualshape8qtilde.f
index 70cebba..4020072 100644
--- a/ccx_2.19/src/dualshape8qtilde.f
+++ b/ccx_2.19/src/dualshape8qtilde.f
@@ -17,7 +17,7 @@
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
!
-! function to evaluate shape funciton dual shape funciton for
+! function to evaluate shape function dual shape function for
! quad-quad mortar method \f$ shape(\xi,\eta) \f$
! see phd-thesis Sitzmann Chapter 4.1.
!
diff --git a/ccx_2.19/src/dynboun.c b/ccx_2.19/src/dynboun.c
index 534c71a..53b2163 100644
--- a/ccx_2.19/src/dynboun.c
+++ b/ccx_2.19/src/dynboun.c
@@ -103,7 +103,7 @@ void dynboun(double *amta,ITG *namta,ITG *nam,double *ampli, double *time,
NNEW(b2,double,neq[1]);
/* check whether boundary conditions changed
- comparision of min with prev */
+ comparison of min with prev */
if(*init==1){
for(i=0;i<*nboun;i++){
@@ -141,7 +141,7 @@ void dynboun(double *amta,ITG *namta,ITG *nam,double *ampli, double *time,
}
/* check whether boundary conditions changed
- comparision of act with min */
+ comparison of act with min */
idiff[1]=0;
for(i=0;i<*nboun;i++){
@@ -186,7 +186,7 @@ void dynboun(double *amta,ITG *namta,ITG *nam,double *ampli, double *time,
}
/* check whether boundary conditions changed
- comparision of plus with act */
+ comparison of plus with act */
idiff[2]=0;
for(i=0;i<*nboun;i++){
diff --git a/ccx_2.19/src/e_c3d_us45.f b/ccx_2.19/src/e_c3d_us45.f
index 6c37f3f..5379f63 100644
--- a/ccx_2.19/src/e_c3d_us45.f
+++ b/ccx_2.19/src/e_c3d_us45.f
@@ -354,7 +354,7 @@
enddo
enddo
!
- ! element frame & tranformation matrix tm (e1,e2,e3)T
+ ! element frame & transformation matrix tm (e1,e2,e3)T
call us4_csys(xg,tm,tmg)
! nodal coordinates in element frame:
x(1,:) = matmul(tm,xg(1,:))
@@ -405,7 +405,7 @@
call us4_M(x,h,rho,Mshell)
!
Kshell = Kmem + Kb + Ks
- ! artifical drilling stiffness (Krotz) in orede to avoid singularities
+ ! artificial drilling stiffness (Krotz) in order to avoid singularities
kdmax = 0.d0
do k = 1,24
if(kdmax.LT.abs(Kshell(k,k))) then
diff --git a/ccx_2.19/src/expand.c b/ccx_2.19/src/expand.c
index d8e666f..faf96d3 100644
--- a/ccx_2.19/src/expand.c
+++ b/ccx_2.19/src/expand.c
@@ -355,7 +355,7 @@ void expand(double *co, ITG *nk, ITG *kon, ITG *ipkon, char *lakon,
/* checking for a cylindrical transformation;
comparison with the cyclic symmetry system */
- /* carthesian coordinate system */
+ /* cartesian coordinate system */
if(nodeforc[2*i+1]<*nsectors){
nodeforc[2*i]+=*nk*nodeforc[2*i+1];
@@ -803,7 +803,7 @@ void expand(double *co, ITG *nk, ITG *kon, ITG *ipkon, char *lakon,
/* check whether SUBCYCLIC MPC: if the current node
is an independent node of a CYCLIC MPC, the
- node in the new MPC should be the cylic previous
+ node in the new MPC should be the cyclic previous
one */
nodenew=node+i**nk;
@@ -915,7 +915,7 @@ void expand(double *co, ITG *nk, ITG *kon, ITG *ipkon, char *lakon,
}
}
tint++;*/
- /* now append and expand the contact definitons*/
+ /* now append and expand the contact definitions*/
/* NNEW(tchar1,char,81);
NNEW(tchar2,char,81);
NNEW(tchar3,char,81);
diff --git a/ccx_2.19/src/external.c b/ccx_2.19/src/external.c
index 76645c3..bcce52a 100644
--- a/ccx_2.19/src/external.c
+++ b/ccx_2.19/src/external.c
@@ -145,7 +145,7 @@ static void treatExternalBehaviour(const char *n,
check(ptr!=NULL,n,"unable to load function");
if(calculix_searchExternalBehaviour(n)==NULL){
#ifdef CALCULIX_EXTERNAL_BEHAVIOUR_DEBUG
- fprintf(stdout,"treatExternalBehaviour: registring material (library '%s', function '%s')\n",l,f);
+ fprintf(stdout,"treatExternalBehaviour: registering material (library '%s', function '%s')\n",l,f);
#endif
RENEW(*rf,CalculixExternalBehaviour,*nrf+1);
char *nn = malloc(81*sizeof(char));;
@@ -158,7 +158,7 @@ static void treatExternalBehaviour(const char *n,
*nrf+=1;
#ifdef CALCULIX_EXTERNAL_BEHAVIOUR_DEBUG
} else {
- fprintf(stdout,"searchExternalBehaviour: material is already registred\n");
+ fprintf(stdout,"searchExternalBehaviour: material is already registered\n");
#endif
}
}
@@ -208,7 +208,7 @@ calculix_searchExternalBehaviour(const char* n){
++i;
}
#ifdef CALCULIX_EXTERNAL_BEHAVIOUR_DEBUG
- fprintf(stdout,"searchExternalBehaviour: material not registred yet\n");
+ fprintf(stdout,"searchExternalBehaviour: material not registered yet\n");
#endif
return NULL;
}
diff --git a/ccx_2.19/src/faceinfo.f b/ccx_2.19/src/faceinfo.f
index 6f23811..ddded71 100644
--- a/ccx_2.19/src/faceinfo.f
+++ b/ccx_2.19/src/faceinfo.f
@@ -22,7 +22,7 @@
!
subroutine faceinfo(nelem,jface,lakon,nope,nopes,mint2d)
!
-! autor: Saskia Sitzmann
+! author: Saskia Sitzmann
!
implicit none
!
diff --git a/ccx_2.19/src/fminsirefine.f b/ccx_2.19/src/fminsirefine.f
index 1db0360..3525cb0 100644
--- a/ccx_2.19/src/fminsirefine.f
+++ b/ccx_2.19/src/fminsirefine.f
@@ -83,11 +83,11 @@ C Local dimensions currently require N <= 128
C X(N) ... vector of variables. When calling FMINSI the user has to
C provide the starting point of the minimization, i.e. an
C assumed or previously determined estimate of the location
-C of a mimimum.
+C of a minimum.
C After completion of FMINSI X contains the best approximation
-C found for the loacation of a local minimum of the objective
+C found for the location of a local minimum of the objective
C function.
-C FU(N,X) ... REAL FUNCTION, ojective function to be miminized,
+C FU(N,X) ... REAL FUNCTION, objective function to be minimized,
C need neither be differentiable nor steady.
C FU has to declared as "EXTERNAL" in the calling program.
C EPS ... vector of desired absolute accuracy for the single components
@@ -198,7 +198,7 @@ C
C
C Starting value of the expansion factor. The factor is dynamically
C adjusted. It is reduced if successive expansion steps fail.
-C Following successul expansion steps it is restored.
+C Following successful expansion steps it is restored.
C
GAMMD = GAMMA
C
@@ -730,7 +730,7 @@ C
NSUCC = 0
ELSE
C
-C Increase counter for unsucessful contractions
+C Increase counter for unsuccessful contractions
C
NSUCC = NSUCC + 1
ENDIF
diff --git a/ccx_2.19/src/forcadd.f b/ccx_2.19/src/forcadd.f
index c8ce69a..e6793e2 100644
--- a/ccx_2.19/src/forcadd.f
+++ b/ccx_2.19/src/forcadd.f
@@ -64,7 +64,7 @@
!
! change: transformations on rotations are taken into account
! by the normal of the mean rotation MPC, not by expanding the
-! MPC in Carthesian coordinates
+! MPC in Cartesian coordinates
!
!
! no transformation applies to the node
diff --git a/ccx_2.19/src/gapconductances.f b/ccx_2.19/src/gapconductances.f
index 97600fd..edea0a0 100644
--- a/ccx_2.19/src/gapconductances.f
+++ b/ccx_2.19/src/gapconductances.f
@@ -56,7 +56,7 @@
if(nelcon(1,nmat).eq.0) then
write(*,*) '*ERROR reading *GAP CONDUCTANCE:'
write(*,*) ' *GAP CONDUCTANCE should'
- write(*,*) ' be preceeded by a *SURFACE BEHAVIOR card'
+ write(*,*) ' be preceded by a *SURFACE BEHAVIOR card'
ier=1
return
endif
diff --git a/ccx_2.19/src/gasmechbc.f b/ccx_2.19/src/gasmechbc.f
index 54834de..abd25b9 100644
--- a/ccx_2.19/src/gasmechbc.f
+++ b/ccx_2.19/src/gasmechbc.f
@@ -27,7 +27,7 @@
!
real*8 vold(0:mi(2),*),xload(2,*)
!
-! updating the boudary conditions in a mechanical
+! updating the boundary conditions in a mechanical
! calculation coming from a previous thermal calculation
!
! updating the pressure boundary conditions
diff --git a/ccx_2.19/src/gaspipe_fanno.f b/ccx_2.19/src/gaspipe_fanno.f
index 937cb84..1071740 100644
--- a/ccx_2.19/src/gaspipe_fanno.f
+++ b/ccx_2.19/src/gaspipe_fanno.f
@@ -495,7 +495,7 @@ c phi=1.d0
ee2=M2*(1.d0+bb*Z2)/(1.d0+bb*Z2*(1.d0+2.d0*cc))
dfdM2=2.d0*(1.d0-kappa*Z2)/(kappa*M2**3)
!
-! redidual
+! residual
!
f=(1.d0/Z1-1.d0/Z2)/kappa+dlog(Z1/Z2)-lld
!
diff --git a/ccx_2.19/src/gencontelem_n2f.f b/ccx_2.19/src/gencontelem_n2f.f
index eef6205..25c49a9 100644
--- a/ccx_2.19/src/gencontelem_n2f.f
+++ b/ccx_2.19/src/gencontelem_n2f.f
@@ -684,7 +684,7 @@ c write(*,*)'ix@jqw',(jbasis+m2),'jqw(ix)',(nzsw+1)
enddo
!
enddo
- if(mortar.ne.-1) cycle ! ommitted to capture clearances???
+ if(mortar.ne.-1) cycle ! omitted to capture clearances???
endif
!
! distance from surface along normal (= clearance)
diff --git a/ccx_2.19/src/gendualcoeffs.f b/ccx_2.19/src/gendualcoeffs.f
index 32e45f4..1d9ccd2 100644
--- a/ccx_2.19/src/gendualcoeffs.f
+++ b/ccx_2.19/src/gendualcoeffs.f
@@ -26,7 +26,7 @@
! [in] islavsurf islavsurf(1,i) slaveface i islavsurf(2,i) pointer into imastsurf and pmastsurf
! [in] itiefac pointer into field islavsurf: (1,i) beginning slave_i (2,i) end of slave_i
! [in] islavnode fields containing nodes of slace surfaces
-! [in] nslavnode (i) for contraint i pointer into field islavnode
+! [in] nslavnode (i) for constraint i pointer into field islavnode
! [in] pslavsurf integration points and weights on slave side
! [in] pslavdual (:,i)coefficients \f$ \alpha_{ij}\f$, \f$ 1,j=1,..8\f$ for dual shape functions for face i
! [in] pslavdualpg (:,i)coefficients \f$ \alpha_{ij}\f$, \f$ 1,j=1,..8\f$ for Petrov-Galerkin shape functions for face i
@@ -189,7 +189,7 @@
ns=l
iflag=2
!
-! construct dual basis functions for transformed standart
+! construct dual basis functions for transformed standard
! basis functions
!
if(nopes.eq.8) then
diff --git a/ccx_2.19/src/genfirstactif.f b/ccx_2.19/src/genfirstactif.f
index 46747e5..e333a65 100644
--- a/ccx_2.19/src/genfirstactif.f
+++ b/ccx_2.19/src/genfirstactif.f
@@ -20,7 +20,7 @@
! subroutine generating the first actice set
! and calculating the areas for all faces on slaveside
!
-! [in] imastop (l,i) for edge l in triagle i neightbouring triangle
+! [in] imastop (l,i) for edge l in triagle i neighbouring triangle
! [in] islavsurf islavsurf(1,i) slaveface i islavsurf(2,i) pointer into imastsurf and pmastsurf
! [in] itiefac pointer into field islavsurf: (1,i) beginning slave_i (2,i) end of slave_i
! [out] areaslav (i)area of face i, ONLY HELP FIELD
diff --git a/ccx_2.19/src/genislavactdof.f b/ccx_2.19/src/genislavactdof.f
index a3d075c..a5eb140 100644
--- a/ccx_2.19/src/genislavactdof.f
+++ b/ccx_2.19/src/genislavactdof.f
@@ -21,7 +21,7 @@
! corresponding slave node position in field islavnode and the
! global (x-y-z) degree of freedom
!
-! [in] nslavnode (i) for contraint i pointer into field islavnode
+! [in] nslavnode (i) for constraint i pointer into field islavnode
! [in] nmastnode (i)pointer into field imastnode for contact tie i
! [in] imastnode field storing the nodes of the master surfaces
! [out] islavactdof (i)=10*slavenodenumber+direction for active dof i
diff --git a/ccx_2.19/src/geometrictolerances.f b/ccx_2.19/src/geometrictolerances.f
index b7b384f..80fa55a 100644
--- a/ccx_2.19/src/geometrictolerances.f
+++ b/ccx_2.19/src/geometrictolerances.f
@@ -145,7 +145,7 @@ c enddo
!
if(ndesi.eq.0) then
write(*,*) '*ERROR reading *GEOMETRIC TOLERANCE:'
- write(*,*) ' no nodes for the compuation of '
+ write(*,*) ' no nodes for the computation of '
write(*,*) ' the random field have been defined.'
call inputerror(inpc,ipoinpc,iline,
& "*GEOMETRIC TOLERANCE%",ier)
diff --git a/ccx_2.19/src/getnumberofnodes.f b/ccx_2.19/src/getnumberofnodes.f
index 59fa3d3..9b656e7 100644
--- a/ccx_2.19/src/getnumberofnodes.f
+++ b/ccx_2.19/src/getnumberofnodes.f
@@ -22,7 +22,7 @@
!
subroutine getnumberofnodes(nelem,jface,lakon,nope,nopes,mint2d)
!
-! autor: Saskia Sitzmann
+! author: Saskia Sitzmann
!
implicit none
!
diff --git a/ccx_2.19/src/hybsvd.f b/ccx_2.19/src/hybsvd.f
index 72369c4..2340068 100644
--- a/ccx_2.19/src/hybsvd.f
+++ b/ccx_2.19/src/hybsvd.f
@@ -277,7 +277,7 @@ C
S = 0.d0
SCALE = 0.d0
C
-C PERFORM SCALING OF COLUMNS TO AVOID UNNECSSARY OVERFLOW
+C PERFORM SCALING OF COLUMNS TO AVOID UNNECESSARY OVERFLOW
C OR UNDERFLOW
C
DO 20 K=I,M
@@ -554,8 +554,8 @@ C
C THIS SUBROUTINE HAS BEEN CHECKED BY THE PFORT VERIFIER
C (RYDER, B.G. 'THE PFORT VERIFIER', SOFTWARE - PRACTICE AND
C EXPERIENCE, VOL.4, 359-377, 1974) FOR ADHERENCE TO A LARGE,
-C CAREFULLY DEFINED, PORTABLE SUBSET OF AMERICAN NATIONAL STANDAR
-C FORTRAN CALLED PFORT.
+C CAREFULLY DEFINED, PORTABLE SUBSET OF AMERICAN NATIONAL
+C STANDARD FORTRAN CALLED PFORT.
C
C ORIGINAL VERSION OF THIS CODE IS SUBROUTINE SVD IN RELEASE 2 OF
C EISPACK.
diff --git a/ccx_2.19/src/hyperelastics.f b/ccx_2.19/src/hyperelastics.f
index 37064f8..fb0a6b4 100644
--- a/ccx_2.19/src/hyperelastics.f
+++ b/ccx_2.19/src/hyperelastics.f
@@ -232,7 +232,7 @@
!
! if any of the compressibility coefficients is zero (incompressible
! material), it is replaced. The lowest order coefficient is replaced
-! such that it corresponds to a Poisson coeffient of 0.475, the
+! such that it corresponds to a Poisson coefficient of 0.475, the
! following ones are replaced by a power of the first one
!
do j=1,ntmat
diff --git a/ccx_2.19/src/inimortar.c b/ccx_2.19/src/inimortar.c
index b282574..8953021 100644
--- a/ccx_2.19/src/inimortar.c
+++ b/ccx_2.19/src/inimortar.c
@@ -36,7 +36,7 @@
* [in] ne number of elements
* [in] nslavs number of slave nodes
* [in] nk number of nodes
- * [in] nener flag indicating wheter ener is allocated
+ * [in] nener flag indicating whether ener is allocated
* [in] ipkonp pointer into field kon...
* [in] lakonp (i) label for element i
* [in] konp .. for element i storing the connectivity list of elem. in succ. order
@@ -150,7 +150,7 @@
* [out] nmmpc number of MPC for master nodes
* [in] iponoels (i) pointer to inoels
* [in] inoels (3,i) element number, local node number and pointer to another entry
- * [in] tietol (1,i) tie tolerance (2,i) contant interaction material definition
+ * [in] tietol (1,i) tie tolerance (2,i) constant interaction material definition
* [in] elcon material parameters
* [in] ncmat_ maximum number of elastic material constants
* [in] ntmat_ maximum number of temperature data points for any material
@@ -320,7 +320,7 @@ void inimortar(double **enerp, ITG *mi, ITG *ne ,ITG *nslavs,ITG *nk,ITG *nener,
NNEW(slavtan,double,6*nslavnode[*ntie]);
NNEW(cdisp,double,6*nslavnode[*ntie]);
- /* allocation of temperary fields: stores the structure
+ /* allocation of temporary fields: stores the structure
of the stiffness matrix without mortar contact */
NNEW(cstress,double,mt*nslavnode[*ntie]);
diff --git a/ccx_2.19/src/initialcfdfem.f b/ccx_2.19/src/initialcfdfem.f
index 99450a9..78eba5f 100644
--- a/ccx_2.19/src/initialcfdfem.f
+++ b/ccx_2.19/src/initialcfdfem.f
@@ -23,10 +23,10 @@
& matname,inomat,mi,ithermal,dhel,jyy,ifreesurface,
& nbody,ipobody,ibody,xbody,depth,nodfreesurf,dgravity,xg)
!
-! initial calculations for cfd applicatons:
+! initial calculations for cfd applications:
! - determine the distance from the nearest solid surface
! (stored in yy and corresponding wall node in jyy)
-! - determing the distance from the nearest in-flow node
+! - determine the distance from the nearest in-flow node
! for solid surface nodes (stored in xsolidsurf)
! - determine the adjacent element height for each node
! (stored in field dh)
diff --git a/ccx_2.19/src/initialnet.f b/ccx_2.19/src/initialnet.f
index 8abbeb1..6f195ff 100644
--- a/ccx_2.19/src/initialnet.f
+++ b/ccx_2.19/src/initialnet.f
@@ -677,7 +677,7 @@ c call exit(201)
write(*,*) ' node1',node1,' pressure'
& ,v(2,node1)
write(*,*) ' node2',node2,
- & 'given intial pressure',
+ & 'given initial pressure',
& v(2,node2)
v(2,node2)=0.9d0*v(2,node2)
write(*,*) ' node2',node2,
@@ -697,12 +697,12 @@ c call exit(201)
& ' given initial pressure',v(2,node1)
v(2,node1)=1.05d0*v(2,node2)
write(*,*) ' node1',node1,
- & ' new intial pressure',v(2,node1)
+ & ' new initial pressure',v(2,node1)
write(*,*) ' node2',node2,
& ' given initial pressure',v(2,node2)
v(2,node2)=0.95d0*v(2,node2)
write(*,*) ' node2',node2,
- & ' new intial pressure',v(2,node2)
+ & ' new initial pressure',v(2,node2)
endif
endif
!
diff --git a/ccx_2.19/src/interpolatestatemain.c b/ccx_2.19/src/interpolatestatemain.c
index e38f0f3..02c433d 100644
--- a/ccx_2.19/src/interpolatestatemain.c
+++ b/ccx_2.19/src/interpolatestatemain.c
@@ -90,7 +90,7 @@ void interpolatestatemain(ITG *ne,ITG *ipkon,ITG *kon,char *lakon,ITG *ne0,
if(strcmp1(&tieset[i*243+80],"C")!=0) continue;
/* parallellizing the loop over the contact slave faces for each tie
- - numstart is the location in islavsurf(old) befor the first
+ - numstart is the location in islavsurf(old) before the first
face of the present contact tie
- numfaces is the total number of contact faces in the present
contact tie */
diff --git a/ccx_2.19/src/interpolsubmodel.f b/ccx_2.19/src/interpolsubmodel.f
index c04aa95..e6af911 100644
--- a/ccx_2.19/src/interpolsubmodel.f
+++ b/ccx_2.19/src/interpolsubmodel.f
@@ -35,7 +35,7 @@
! tieset(2,i) and the set corresponding to the global element
! model in tieset(3,i). Notice that the submodel boundary can be
! a nodal set or an element face set (the actual node and the actual
-! element face are stored in nodeface, respecively).
+! element face are stored in nodeface, respectively).
!
implicit none
!
diff --git a/ccx_2.19/src/intersectionpoint.f b/ccx_2.19/src/intersectionpoint.f
index 6c2a4fc..ae121fe 100644
--- a/ccx_2.19/src/intersectionpoint.f
+++ b/ccx_2.19/src/intersectionpoint.f
@@ -34,7 +34,7 @@
!
if(abs(eplane(pab,xcp,tnull)).lt.1.d-13)then
write(*,*) 'SH: IP no intersection point can be found'
- write(*,*) 'SH: IP pab paralell to plane! '
+ write(*,*) 'SH: IP pab parallel to plane! '
call exit(201)
else
diff=-eplane(pa,xcp,t)/eplane(pab,xcp,tnull)
diff --git a/ccx_2.19/src/labyrinth.f b/ccx_2.19/src/labyrinth.f
index 813d4de..a5eee1e 100644
--- a/ccx_2.19/src/labyrinth.f
+++ b/ccx_2.19/src/labyrinth.f
@@ -265,7 +265,7 @@ c iaxial=nint(prop(index+3))
call cd_lab_radius(rad,s,Hst,cd_radius)
endif
!
-! carry over factor (only for straight throught labyrinth)
+! carry over factor (only for straight through labyrinth)
!
if((n.ge.2).and.(hst.eq.0.d0)) then
cst=n/(n-1.d0)
@@ -493,7 +493,7 @@ c iaxial=nint(prop(index+3))
cd_radius=1
endif
!
-! carry over factor (only for straight throught labyrinth)
+! carry over factor (only for straight through labyrinth)
!
if((n.gt.1).and.(hst.eq.0.d0)) then
cst=n/(n-1.d0)
diff --git a/ccx_2.19/src/mafilldmssmain.c b/ccx_2.19/src/mafilldmssmain.c
index c036d7b..7ceb5fe 100644
--- a/ccx_2.19/src/mafilldmssmain.c
+++ b/ccx_2.19/src/mafilldmssmain.c
@@ -124,7 +124,7 @@ void mafilldmssmain(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
}
}
-// next line is to be inserted in a similar way for all other paralell parts
+// next line is to be inserted in a similar way for all other parallel parts
if(*ne<num_cpus) num_cpus=*ne;
diff --git a/ccx_2.19/src/mafillsmmain.c b/ccx_2.19/src/mafillsmmain.c
index 2536423..9dd17fb 100644
--- a/ccx_2.19/src/mafillsmmain.c
+++ b/ccx_2.19/src/mafillsmmain.c
@@ -139,7 +139,7 @@ void mafillsmmain(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
}
}
- // next line is to be inserted in a similar way for all other paralell parts
+ // next line is to be inserted in a similar way for all other parallel parts
if(*ne<num_cpus) num_cpus=*ne;
diff --git a/ccx_2.19/src/mafillsmmain_se.c b/ccx_2.19/src/mafillsmmain_se.c
index f39e3ed..f8b0f62 100644
--- a/ccx_2.19/src/mafillsmmain_se.c
+++ b/ccx_2.19/src/mafillsmmain_se.c
@@ -137,7 +137,7 @@ void mafillsmmain_se(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
}
}
-// next line is to be inserted in a similar way for all other paralell parts
+// next line is to be inserted in a similar way for all other parallel parts
if(*ne<num_cpus) num_cpus=*ne;
diff --git a/ccx_2.19/src/mastructcmatrix.c b/ccx_2.19/src/mastructcmatrix.c
index 05ba550..dd0db95 100644
--- a/ccx_2.19/src/mastructcmatrix.c
+++ b/ccx_2.19/src/mastructcmatrix.c
@@ -62,7 +62,7 @@ void mastructcmatrix(ITG *icolc,ITG *jqc,ITG **mast1p,ITG **irowcp,
if(inode1==inode2){
insert_cmatrix(ipointer,&mast1,&next,&jdof1,&jdof2,
&ifree,nzsc);
- /* lower triangel matrix entries */
+ /* lower triangle matrix entries */
}else if(inode1<inode2){
istart=jqs[kk]-1;
FORTRAN(nident,(&irows[istart],&ipos,&icols[kk],&irow));
@@ -71,7 +71,7 @@ void mastructcmatrix(ITG *icolc,ITG *jqc,ITG **mast1p,ITG **irowcp,
insert_cmatrix(ipointer,&mast1,&next,&jdof1,&jdof2,
&ifree,nzsc);
}
- /* upper triangel matrix entries */
+ /* upper triangle matrix entries */
}else{
istart=jqs[jj]-1;
FORTRAN(nident,(&irows[istart],&jdof1,&icols[jj],&irow));
diff --git a/ccx_2.19/src/matrixsort.c b/ccx_2.19/src/matrixsort.c
index ac671d1..36a42b9 100644
--- a/ccx_2.19/src/matrixsort.c
+++ b/ccx_2.19/src/matrixsort.c
@@ -32,7 +32,7 @@
* [in,out] irow row numbers
* [out] jq column pointer to irow
* [in,out] nzs number of non-zero values in au
- * [in,out] ndim dimention of matrix au ndim x ndim
+ * [in,out] ndim dimension of matrix au ndim x ndim
**/
void matrixsort(double *au,ITG *mast1,ITG *irow,ITG *jq,
diff --git a/ccx_2.19/src/modifympc.f b/ccx_2.19/src/modifympc.f
index c73702d..ddf1f3c 100644
--- a/ccx_2.19/src/modifympc.f
+++ b/ccx_2.19/src/modifympc.f
@@ -72,7 +72,7 @@
! restore the original form of the MPC's
! an MPC with number in between mpcrfna and mpcrfnb (i.e. MPC's
! corresponding to the connection of the old mesh with the new
-! mesh) is in its orignal form if the coefficient of the first
+! mesh) is in its original form if the coefficient of the first
! term is exactly 1.d0
!
do i=mpcrfna,mpcrfnb
@@ -327,7 +327,7 @@
enddo
enddo
!
-! remove the indpendent node from the data base:
+! remove the independent node from the data base:
! tagging the row dof in all other columns
!
do m=jqt(newnode),jqt(newnode+1)-1
diff --git a/ccx_2.19/src/multimortar.c b/ccx_2.19/src/multimortar.c
index f1cc706..89320ad 100644
--- a/ccx_2.19/src/multimortar.c
+++ b/ccx_2.19/src/multimortar.c
@@ -64,7 +64,7 @@
* [in] Ddtil coupling matrix \f$ \tilde{D}_d[p,q]=\int \psi_p \tilde{\phi}_q dS \f$, \f$ p,q \in S \f$
* [in] irowdtil field containing row numbers of Ddtil
* [in] jqdtil pointer into field irowdtil
- * [in] neq (0) # of mechanical equations (1) sum of mechanical and thermal equations (2) neq(1+ # of single point contraints)
+ * [in] neq (0) # of mechanical equations (1) sum of mechanical and thermal equations (2) neq(1+ # of single point constraints)
* [in,out] b right hand side
* [out] bhat intermediate right hand side
* [in] islavnode field storing the nodes of the slave surface
diff --git a/ccx_2.19/src/normalsoninterface.f b/ccx_2.19/src/normalsoninterface.f
index 953a29b..ade0a6e 100644
--- a/ccx_2.19/src/normalsoninterface.f
+++ b/ccx_2.19/src/normalsoninterface.f
@@ -64,7 +64,7 @@
& 2,3,6,5,8,15,11,14,
& 3,1,4,6,9,13,12,15/
!
-! new added data for the local coodinates for nodes
+! new added data for the local coordinates for nodes
!
data xquad /-1.d0,-1.d0,
& 1.d0,-1.d0,
diff --git a/ccx_2.19/src/normalsonsurface_robust.f b/ccx_2.19/src/normalsonsurface_robust.f
index 1fd2052..a42075d 100644
--- a/ccx_2.19/src/normalsonsurface_robust.f
+++ b/ccx_2.19/src/normalsonsurface_robust.f
@@ -96,7 +96,7 @@
& 2,3,6,5,8,15,11,14,
& 3,1,4,6,9,13,12,15/
!
-! new added data for the local coodinates for nodes
+! new added data for the local coordinates for nodes
!
data xquad /-1.d0,-1.d0,
& 1.d0,-1.d0,
diff --git a/ccx_2.19/src/normalsonsurface_se.f b/ccx_2.19/src/normalsonsurface_se.f
index eeb53e6..dd4bf61 100644
--- a/ccx_2.19/src/normalsonsurface_se.f
+++ b/ccx_2.19/src/normalsonsurface_se.f
@@ -98,7 +98,7 @@
& 2,3,6,5,8,15,11,14,
& 3,1,4,6,9,13,12,15/
!
-! new added data for the local coodinates for nodes
+! new added data for the local coordinates for nodes
!
data xquad /-1.d0,-1.d0,
& 1.d0,-1.d0,
diff --git a/ccx_2.19/src/nortanslav.f b/ccx_2.19/src/nortanslav.f
index 35dc562..8c7824f 100644
--- a/ccx_2.19/src/nortanslav.f
+++ b/ccx_2.19/src/nortanslav.f
@@ -23,9 +23,9 @@
! [in] islavsurf islavsurf(1,i) slaveface i islavsurf(2,i) pointer into imastsurf and pmastsurf
! [in] itiefac pointer into field islavsurf: (1,i) beginning slave_i (2,i) end of slave_i
! [in] islavnode fields containing nodes of slace surfaces
-! [in] nslavnode (i) for contraint i pointer into field islavnode
+! [in] nslavnode (i) for constraint i pointer into field islavnode
! [out] slavnor normal vektors in the nods of slave surface
-! [out] slavtan tangetial vektors in the nodes of slave surface
+! [out] slavtan tangential vektors in the nodes of slave surface
!
subroutine nortanslav(tieset,ntie,ipkon,kon,lakon,set,
& co,vold,nset,islavsurf,itiefac,
@@ -58,7 +58,7 @@
!
data iflag /2/
!
-! new added data for the local coodinates for nodes
+! new added data for the local coordinates for nodes
!
data xquad /-1,-1,
& 1,-1,
diff --git a/ccx_2.19/src/objective_disp.f b/ccx_2.19/src/objective_disp.f
index e4c63b5..54d5a7a 100644
--- a/ccx_2.19/src/objective_disp.f
+++ b/ccx_2.19/src/objective_disp.f
@@ -94,7 +94,7 @@
enddo
endif
!
-! Euclidian length
+! Euclidean length
!
g0(iobject)=dsqrt(g0(iobject))
!
diff --git a/ccx_2.19/src/objectivemain_se.c b/ccx_2.19/src/objectivemain_se.c
index d980baa..76583b8 100644
--- a/ccx_2.19/src/objectivemain_se.c
+++ b/ccx_2.19/src/objectivemain_se.c
@@ -671,7 +671,7 @@ void objectivemain_se(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
}else{
/* generate appropriate MPC's for the real
- and imaginary part of the sensivity */
+ and imaginary part of the sensitivity */
DMEMSET(temp,0,2*mt**nk,0.);
NNEW(coefmpcnew,double,*mpcend);
@@ -1311,7 +1311,7 @@ void objectivemain_se(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
lmax=ndesired/num_cpus;
- /* deviding the design variables in sets of
+ /* dividing the design variables in sets of
num_cpus variables */
for(l=0;l<lmax+1;l++){
@@ -1346,7 +1346,7 @@ void objectivemain_se(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
lmax=neqred/num_cpus;
- /* deviding the design variables in sets of
+ /* dividing the design variables in sets of
num_cpus variables */
for(l=0;l<lmax+1;l++){
@@ -1995,7 +1995,7 @@ void objectivemain_se(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
lmax=ndesired/num_cpus;
- /* deviding the design variables in sets of
+ /* dividing the design variables in sets of
num_cpus variables */
for(l=0;l<lmax+1;l++){
@@ -2030,7 +2030,7 @@ void objectivemain_se(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
lmax=neqred/num_cpus;
- /* deviding the design variables in sets of
+ /* dividing the design variables in sets of
num_cpus variables */
for(l=0;l<lmax+1;l++){
@@ -2253,7 +2253,7 @@ void *stress_sen_dxmt(ITG *i){
memcpy(&dstx1[6*mi1[0]**ne1**i],&stx1[0],sizeof(double)*6*mi1[0]**ne1);
memcpy(&dstn1[6**nk1**i],&stn1[0],sizeof(double)*6**nk1);
- /* pertubation of the coordinates of the design variables */
+ /* perturbation of the coordinates of the design variables */
for(j=0;j<3;j++){
conew1[(node-1)*3+j+3**nk1**i]=co1[(node-1)*3+j]+xdesi1[(idesvar-1)*3+j];
@@ -2385,7 +2385,7 @@ void *peeq_sen_dxmt(ITG *i){
memcpy(&dxstate1[*nstate1_*mi1[0]**ne1**i],&xstate1[0],sizeof(double)**nstate1_*mi1[0]**ne1);
memcpy(&depn1[*nk1**i],&epn1[0],sizeof(double)**nk1);
- /* pertubation of the coordinates of the design variables */
+ /* perturbation of the coordinates of the design variables */
for(j=0;j<3;j++){
conew1[(node-1)*3+j+3**nk1**i]=co1[(node-1)*3+j]+xdesi1[(idesvar-1)*3+j];
diff --git a/ccx_2.19/src/onedint.f b/ccx_2.19/src/onedint.f
index b896649..415179a 100644
--- a/ccx_2.19/src/onedint.f
+++ b/ccx_2.19/src/onedint.f
@@ -33,7 +33,7 @@ C
C 2.INPUT CALL ONEDINT(XE,YE,NE,XA,YA,NA,IART,IEXP,IER)
C *********** XE = ABSCISSE VECTOR OF THE SAMPLING POINTS
C YE = ORDINATE VECTOR OF THE SAMPLING POINTS
-C NE = LENGHT OF THE SAMPLING POINT VECTOR
+C NE = LENGTH OF THE SAMPLING POINT VECTOR
C XA = ASCISSE VECTOR OF THE INTERPOLATION POINT(INPUT)
C YA = ORDINATE VECTOR OF THE INTERPOLATION POINT(OUTPUT)
C NA = LENGTH OF THE INTERPOLATION VECTOR c IART = tYPE OF INTERPOLATION
@@ -50,11 +50,11 @@ C SELECTION OF THE EXTRAPOLATION TYPE AS
C FOR IART.
C IER = ERROR CODE
C = 0: NORMAL PROCEEDING
-C =-1:PROBLEM IN TH EGIVEN VALUES
-C PROGRAMM STOPS.
+C =-1:PROBLEM IN THE GIVEN VALUES
+C PROGRAM STOPS.
C
C 3.RESTRICTION ABSCISSE VECTOR XE MUST BE STRICTLY MONOTONIC INCREASING SORTED
-C *************** AUTOMATIC CONTROL INSIDE TEH SUBROUTINE:
+C *************** AUTOMATIC CONTROL INSIDE THE SUBROUTINE:
C NE = 0: ERROR INTERRUPTION
C NE = 1: ONLY CONSTANT INTER- EXTRAPOLATION
C NE = 2: MAXIMAL LINEAR INTER- EXTRAPOLATION
diff --git a/ccx_2.19/src/pardiso.c b/ccx_2.19/src/pardiso.c
index fc545dd..787f6bb 100644
--- a/ccx_2.19/src/pardiso.c
+++ b/ccx_2.19/src/pardiso.c
@@ -324,7 +324,7 @@ void pardiso_solve(double *b, ITG *neq,ITG *symmetryflag,ITG *inputformat,
}
iparm[1]=3;
- /* pardiso_factor has been called befor, MKL_NUM_THREADS=mthread_mkl is set*/
+ /* pardiso_factor has been called before, MKL_NUM_THREADS=mthread_mkl is set*/
printf(" number of threads =% d\n\n",mthread_mkl);
diff --git a/ccx_2.19/src/pardiso_as.c b/ccx_2.19/src/pardiso_as.c
index 079d52d..4166a17 100644
--- a/ccx_2.19/src/pardiso_as.c
+++ b/ccx_2.19/src/pardiso_as.c
@@ -175,7 +175,7 @@ void pardiso_solve_as(double *b, ITG *neq){
printf(" Solving the system of radiatio equations using the unsymmetric pardiso solver\n");
iparmas[0]=0;
-/* pardiso_factor has been called befor, MKL_NUM_THREADS=nthread_mkl_as is set*/
+/* pardiso_factor has been called before, MKL_NUM_THREADS=nthread_mkl_as is set*/
printf(" number of threads =% d\n\n",nthread_mkl_as);
diff --git a/ccx_2.19/src/pastix.c b/ccx_2.19/src/pastix.c
index a802162..2d88c8a 100644
--- a/ccx_2.19/src/pastix.c
+++ b/ccx_2.19/src/pastix.c
@@ -969,7 +969,7 @@ void pastix_main_generic(double *ad, double *au, double *adb, double *aub,
globDoublePrecision = 1;
}
- // use double precision for inputformat 3 like mortar (better perfromance and convergence)
+ // use double precision for inputformat 3 like mortar (better performance and convergence)
if( pastix_mixed == NULL && *inputformat == 3 ){
globDoublePrecision = 1;
forceRedo = 0;
@@ -1139,7 +1139,7 @@ void pastix_main_generic(double *ad, double *au, double *adb, double *aub,
stepCleanUp = (stepCleanUp + (stepCleanUpEnd.tv_nsec - stepCleanUpStart.tv_nsec)) * 1e-9;
- // upate iteration timer
+ // update iteration timer
totalIterations++;
if(!redo)
totalReused++;
diff --git a/ccx_2.19/src/pcgsolver.c b/ccx_2.19/src/pcgsolver.c
index 7db06a8..598cad3 100644
--- a/ccx_2.19/src/pcgsolver.c
+++ b/ccx_2.19/src/pcgsolver.c
@@ -60,7 +60,7 @@ The (preconditioned) conjugate gradient solver
niter maximum number of iterations -> number of iterations
precFlg preconditioning flag
-The compact row oriented storage of sparse quadratic matrices is decsribed in
+The compact row oriented storage of sparse quadratic matrices is described in
H.R. Schwarz: FORTRAN-Programme zur Methode der finiten Elemente, pp.66-67,
Teubner, 1981
@@ -354,7 +354,7 @@ void MatVecProduct (double *A, double *p, ITG neq, ITG *ia, ITG *iz,
/*--Partial Cholesky decomposition of scaled matrix A. The off-diagonal matrix -- */
/*--elements are divided by 1/(1+alpha) until a decomposition of the positive -- */
/*--definit matrix A exists. C is obtained by ignoring the fill-in during the -- */
-/*--decomposition. In case of successfull decomposition the preconditioning -- */
+/*--decomposition. In case of successful decomposition the preconditioning -- */
/*--matrix C is returned. Otherwise the function is called again with new alpha. -- */
/*--alpha has to be chosen as small as possible, because preconditioning effect -- */
/*--decreases with increasing alpha.----------------------------------------------- */
@@ -446,7 +446,7 @@ void Mrhor (double *C, ITG neq, ITG *ia, ITG *iz, double *r, double *rho)
{
ITG i=0, j=0, jlo=0, jup=0;
double s=0.0;
-/*..solve equation sytem by forward/backward substitution.......................... */
+/*..solve equation system by forward/backward substitution......................... */
rho[0] = r[0];
for (i=1; i<neq; i++)
{
diff --git a/ccx_2.19/src/pk_cdi_r.f b/ccx_2.19/src/pk_cdi_r.f
index eab0ad6..5336399 100644
--- a/ccx_2.19/src/pk_cdi_r.f
+++ b/ccx_2.19/src/pk_cdi_r.f
@@ -16,7 +16,7 @@
! along with this program; if not, write to the Free Software
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
-! cd inncompressible fro thin orifices with corner radiusing (eq 5)
+! cd inncompressible for thin orifices with corner radiusing (eq 5)
!
! author: Yannick Muller
!
diff --git a/ccx_2.19/src/precfdcyc.f b/ccx_2.19/src/precfdcyc.f
index b1c35e1..8a4c056 100644
--- a/ccx_2.19/src/precfdcyc.f
+++ b/ccx_2.19/src/precfdcyc.f
@@ -22,7 +22,7 @@
& inoelfree,nef,co,ipompc,nodempc,ikmpc,ilmpc,nmpc,set,istartset,
& iendset,ialset,nset,iturbulent)
!
-! cyclic update for cfd applicatons:
+! cyclic update for cfd applications:
! - determining the external faces of the mesh and storing
! them in fields nelemface and sideface
! - determining the fluid elements belonging to a given node
diff --git a/ccx_2.19/src/preinitialnet.f b/ccx_2.19/src/preinitialnet.f
index aadf538..d336b4c 100644
--- a/ccx_2.19/src/preinitialnet.f
+++ b/ccx_2.19/src/preinitialnet.f
@@ -817,7 +817,7 @@ c enddo
if(dabs(v(1,nodem)).eq.1.d-30) v(1,nodem)=0.d0
enddo
!
-! check the pressures: set pressures to zero (i.e. no initial condtion)
+! check the pressures: set pressures to zero (i.e. no initial condition)
! which lie in between the neighboring pressures (i.e. at least one
! neighbor has a lower pressure and at least one neighbor has a higher
! pressure) => Laplace method is applied in initialnet
diff --git a/ccx_2.19/src/premortar.c b/ccx_2.19/src/premortar.c
index 62cd532..9bc5ab1 100644
--- a/ccx_2.19/src/premortar.c
+++ b/ccx_2.19/src/premortar.c
@@ -127,8 +127,8 @@
quad-quad)
* [out] f_cmp not used any more
* [out] f_csp contact force for active degrees of freedom
- * [in] auxtil2 auxilary field
- * [in] pslavsurf field storing position xil, etal and weight for
+ * [in] auxtil2 auxiliary field
+ * [in] pslavsurf field storing position xil, etal and weight for
integration point on slave side
* [in] pmastsurf field storing position and etal for integration points
on master side
@@ -140,7 +140,7 @@
* [in] cvtilini C*v at start of the increment
* [in] cvtil C*v
* [in] idamping flag indicating whether damping is used
- * [in] ilin flag indicating wheter fist iteration is calculated
+ * [in] ilin flag indicating whether first iteration is calculated
linear geometrically
* [in] iperturb_sav saved iperturb values
* [out] nodeforc2p transformed point force, node
@@ -319,7 +319,7 @@ void premortar(ITG *iflagact,ITG *ismallsliding,ITG *nzs,ITG *nzsc2,
iperturb[1]=0;
}
- /* small sliding is autometically set active due to combined fix-point
+ /* small sliding is automatically set active due to combined fix-point
Newton approach
do NOT change this unless the additional derivates neglected here
have been implemented */
diff --git a/ccx_2.19/src/pt2zpt1_rot.f b/ccx_2.19/src/pt2zpt1_rot.f
index 1e4d790..ce7e224 100644
--- a/ccx_2.19/src/pt2zpt1_rot.f
+++ b/ccx_2.19/src/pt2zpt1_rot.f
@@ -69,7 +69,7 @@
!
! M1=1
! computing M2 using dichotomy method (dividing the interval
-! with the funciton root iteratively by 2)
+! with the function root iteratively by 2)
!
i=1
!
diff --git a/ccx_2.19/src/radflowload.c b/ccx_2.19/src/radflowload.c
index b766738..6a8e1dc 100644
--- a/ccx_2.19/src/radflowload.c
+++ b/ccx_2.19/src/radflowload.c
@@ -434,7 +434,7 @@ void radflowload(ITG *itg,ITG *ieg,ITG *ntg,ITG *ntr,double *adrad,
}
}
- // next line is to be inserted in a similar way for all other paralell parts
+ // next line is to be inserted in a similar way for all other parallel parts
if(*ntr<num_cpus) num_cpus=*ntr;
diff --git a/ccx_2.19/src/randomval.f b/ccx_2.19/src/randomval.f
index 8b737ca..11830f0 100644
--- a/ccx_2.19/src/randomval.f
+++ b/ccx_2.19/src/randomval.f
@@ -16,9 +16,9 @@
! along with this program; if not, write to the Free Software
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
- subroutine randomval(randval,nev)
+ subroutine randomval(randval,nev)
!
-! Creation of normal ditributed unit variance gaussian
+! Creation of normal distributed unit variance gaussian
! random variables using the Box-Muller-Transformation
!
implicit none
diff --git a/ccx_2.19/src/readfrd.c b/ccx_2.19/src/readfrd.c
index ff53249..4285e11 100644
--- a/ccx_2.19/src/readfrd.c
+++ b/ccx_2.19/src/readfrd.c
@@ -86,7 +86,7 @@ void freeDatasets(Datasets *lcase, int nr)
lcase[nr].fileptr=NULL;
lcase[nr].loaded=0;
- /* edat not propper implemented or deleted */
+ /* edat not properly implemented or deleted */
// for(i=0; i<3; i++) for(e=0; e<anz->e; e++) SFREE(lcase[nr].edat[i][e]);
}
@@ -776,7 +776,7 @@ int readfrd( char *datin, Summen *anz, Nodes **nptr, Elements **eptr, Datasets *
if( lcase[anz->l].irtype > 2 )
{
- printf(" Found ELEMENT DATA, this is not suported!\n");
+ printf(" Found ELEMENT DATA, this is not supported!\n");
anz->l--;
goto next;
}
@@ -1384,12 +1384,12 @@ int readfrd( char *datin, Summen *anz, Nodes **nptr, Elements **eptr, Datasets *
if ( e_nmax > (anz->nmax) )
{
- printf ("\nWARNING: element requestes a nodename higher than allocated\n\n");
+ printf ("\nWARNING: element requests a nodename higher than allocated\n\n");
printf (" e_nmax=%d e_nmin=%d\n", e_nmax, e_nmin );
}
if ( e_nmin < 1 )
{
- printf ("\nWARNING: element requestes a nodename lower than allocated\n\n");
+ printf ("\nWARNING: element requests a nodename lower than allocated\n\n");
printf (" e_nmax=%d e_nmin=%d\n", e_nmax, e_nmin );
}
@@ -1436,7 +1436,7 @@ int readfrdblock(int lc, Summen *anz, Nodes *node, Datasets *lcase )
if( lcase[lc].irtype > 2 )
{
- printf(" ERROR: Found ELEMENT DATA, this is not suported!\n");
+ printf(" ERROR: Found ELEMENT DATA, this is not supported!\n");
return(-1);
}
@@ -1610,7 +1610,7 @@ char *getRecord(FILE *handle, int n, int x0 )
/* return -1 if failure */
-/* return 0 if successfull */
+/* return 0 if successful */
int readOneNode( int lc, Summen *anz, Datasets *lcase, int nodenr, double **vptr, long *byte_offset )
{
register int i=0,j, n;
@@ -1719,7 +1719,7 @@ int readOneNode( int lc, Summen *anz, Datasets *lcase, int nodenr, double **vptr
if( lcase[lc].irtype > 2 )
{
- printf(" ERROR: Found ELEMENT DATA, this is not suported!\n");
+ printf(" ERROR: Found ELEMENT DATA, this is not supported!\n");
return(-1);
}
diff --git a/ccx_2.19/src/readfrd.h b/ccx_2.19/src/readfrd.h
index ed93f46..c6cb1fe 100644
--- a/ccx_2.19/src/readfrd.h
+++ b/ccx_2.19/src/readfrd.h
@@ -109,7 +109,7 @@ typedef struct {
int *icind2;
int *iexist;
double **dat; /* node related data */
- double ***edat; /* element related data, not propper implemented */
+ double ***edat; /* element related data, not properly implemented */
double *max; /* maximum datum */
double *min; /* minimum datum */
int *nmax; /* node with maximum datum */
diff --git a/ccx_2.19/src/refinemesh.c b/ccx_2.19/src/refinemesh.c
index 6418924..a217604 100644
--- a/ccx_2.19/src/refinemesh.c
+++ b/ccx_2.19/src/refinemesh.c
@@ -216,7 +216,7 @@ void refinemesh(ITG *nk,ITG *ne,double *co,ITG *ipkon,ITG *kon,
SFREE(n);SFREE(r);SFREE(d);
- /* adding random contributions to the new nodes towords
+ /* adding random contributions to the new nodes towards
the center of gravity of the base element */
if(1.e-4*dmin<1.e-5){
@@ -412,7 +412,7 @@ void refinemesh(ITG *nk,ITG *ne,double *co,ITG *ipkon,ITG *kon,
SFREE(n);SFREE(r);SFREE(d);
- /* adding random contributions to the new nodes towords
+ /* adding random contributions to the new nodes towards
the center of gravity of the base element */
if(1.e-4*dmin<1.e-5){
diff --git a/ccx_2.19/src/regularization_gn_c.f b/ccx_2.19/src/regularization_gn_c.f
index 4feed95..c17f2a1 100644
--- a/ccx_2.19/src/regularization_gn_c.f
+++ b/ccx_2.19/src/regularization_gn_c.f
@@ -25,7 +25,7 @@
! should be called
! =0 function called
! =1 derivative called
-! [in]regmode selects regularization funtion
+! [in]regmode selects regularization function
! =1 perturbed Lagrange
! =2 piece wise linear with given data points
! =3 expontential contact law
@@ -115,7 +115,7 @@ c ndata=int(plconloc(81))
call exit(201)
endif
!
-! exponetial perturbed Lagrange
+! exponential perturbed Lagrange
!
else if (regmode.eq.3)then
if(divmode.eq.0)then
diff --git a/ccx_2.19/src/regularization_gt_c.f b/ccx_2.19/src/regularization_gt_c.f
index 3f6ddc5..9218d1a 100644
--- a/ccx_2.19/src/regularization_gt_c.f
+++ b/ccx_2.19/src/regularization_gt_c.f
@@ -21,11 +21,11 @@
! (old, only for stressmortar)
!
! [in] lambdatt lambdatilde_tau=lambda_tau-bar{lambda}_tau
-! [in] divmode indicates whether funtion or derivate
+! [in] divmode indicates whether function or derivate
! should be called
! =0 function called
! =1 derivative called
-! [in] regmode selects regularization funtion
+! [in] regmode selects regularization function
! =1 perturbed Lagrange
! [out] gtc result regularization function
! [in] atauinvloc stiffness constant for perturbed Lagrange
diff --git a/ccx_2.19/src/regularization_slip_iwan.f b/ccx_2.19/src/regularization_slip_iwan.f
index b24ea10..08c1ade 100644
--- a/ccx_2.19/src/regularization_slip_iwan.f
+++ b/ccx_2.19/src/regularization_slip_iwan.f
@@ -24,7 +24,7 @@
! [in] bp friction bound
! [in] atau2 tangential stiffness
! [out] resreg evaluated regularization function
-! [in] divmode indicates whether funtion (==0) or derivate (==1) should be called
+! [in] divmode indicates whether function (==0) or derivate (==1) should be called
! [in] regmode selects used semi-Newton (==2 is active)
! [in,out] lambdaiwan Lagrange multiplier splitted to Iwan elements
! [in,out] lambdaiwanini Lagrange multiplier splitted to Iwan elements at start of increment
diff --git a/ccx_2.19/src/regularization_slip_lin.f b/ccx_2.19/src/regularization_slip_lin.f
index a8c1cf3..1471f05 100644
--- a/ccx_2.19/src/regularization_slip_lin.f
+++ b/ccx_2.19/src/regularization_slip_lin.f
@@ -24,7 +24,7 @@
! [in] bpfriction bound
! [in] atauinvinverse of tangential stiffness
! [out] resregevaluated regularization function
-! [in] divmode indicates whether funtion (==0) or derivate (==1) should be called
+! [in] divmode indicates whether function (==0) or derivate (==1) should be called
! [in] regmode not used
! [in] islavact(i) indicates, if slave node i is active (=-3 no-slave-node, =-2 no-LM-node, =-1 no-gap-node, =0 inactive node, =1 sticky node, =2 slipping/active node)
! [in] lambdatshear stress
diff --git a/ccx_2.19/src/restartwrite.f b/ccx_2.19/src/restartwrite.f
index 5956bb6..669395f 100644
--- a/ccx_2.19/src/restartwrite.f
+++ b/ccx_2.19/src/restartwrite.f
@@ -107,7 +107,7 @@
else
!
! overlay mode: store data in a temporary file, close
-! temparary file after writing and rename temparary file
+! temporary file after writing and rename temporary file
! into .rout file
!
!
diff --git a/ccx_2.19/src/restrictor.f b/ccx_2.19/src/restrictor.f
index 2296cc8..85824bc 100644
--- a/ccx_2.19/src/restrictor.f
+++ b/ccx_2.19/src/restrictor.f
@@ -490,7 +490,7 @@
endif
pt1pt2=pt1/pt2
!
-! Mach number caclulation
+! Mach number calculation
!
M1=dsqrt(2d0/km1*(Tt1/T1-1.d0))
if((1.d0-M1).le.1.d-6) then
diff --git a/ccx_2.19/src/resultnet.f b/ccx_2.19/src/resultnet.f
index 92387c9..b5e2ae7 100644
--- a/ccx_2.19/src/resultnet.f
+++ b/ccx_2.19/src/resultnet.f
@@ -1165,7 +1165,7 @@ c & (v(2,node1).gt.v(2,node2)))) then
ct=prop(index+2)
!
! if a swirl element was given by the user, this takes
-! precendence to a value of ct
+! precedence to a value of ct
!
if(nint(prop(index+3)).ne.0) then
nelemswirl=nint(prop(index+3))
diff --git a/ccx_2.19/src/results.c b/ccx_2.19/src/results.c
index 505beef..58492e1 100644
--- a/ccx_2.19/src/results.c
+++ b/ccx_2.19/src/results.c
@@ -156,7 +156,7 @@ void results(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
}
}
- // next line is to be inserted in a similar way for all other paralell parts
+ // next line is to be inserted in a similar way for all other parallel parts
if(*ne<num_cpus) num_cpus=*ne;
diff --git a/ccx_2.19/src/results_se.c b/ccx_2.19/src/results_se.c
index d3fee31..5a978fd 100644
--- a/ccx_2.19/src/results_se.c
+++ b/ccx_2.19/src/results_se.c
@@ -134,7 +134,7 @@ void results_se(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
}
}
-// next line is to be inserted in a similar way for all other paralell parts
+// next line is to be inserted in a similar way for all other parallel parts
if(*ne<num_cpus) num_cpus=*ne;
diff --git a/ccx_2.19/src/resultsinduction.c b/ccx_2.19/src/resultsinduction.c
index 4e389c0..5039e4b 100644
--- a/ccx_2.19/src/resultsinduction.c
+++ b/ccx_2.19/src/resultsinduction.c
@@ -150,7 +150,7 @@ void resultsinduction(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
}
}
-// next line is to be inserted in a similar way for all other paralell parts
+// next line is to be inserted in a similar way for all other parallel parts
if(*ne<num_cpus) num_cpus=*ne;
diff --git a/ccx_2.19/src/resultsmech_u1.f b/ccx_2.19/src/resultsmech_u1.f
index 92f5e28..ce3eb91 100644
--- a/ccx_2.19/src/resultsmech_u1.f
+++ b/ccx_2.19/src/resultsmech_u1.f
@@ -170,7 +170,7 @@
! to be calculated from the PK2 stresses
! nener if 0: internal energy calculation is not required
! else: internal energy is required on output
-! ikin if 0: kinetic energy calculation is not requred
+! ikin if 0: kinetic energy calculation is not required
! else: kinetic energy is required on output
! ne0 largest element number without contact elements (are
! stored after all other elements)
@@ -429,7 +429,7 @@
! rotation values (from Eqn. (19) and (20) in Luo)
!
! Equation (19) does not seem to be correct in Luo:
-! - in the third equation v_1 shoud be w_1 and the sign in front
+! - in the third equation v_1 should be w_1 and the sign in front
! of the psi-terms should be negative
! - in the last equation the sign before the w-terms should be
! negative
diff --git a/ccx_2.19/src/resultsmech_us3.f b/ccx_2.19/src/resultsmech_us3.f
index bf1757b..81bc34f 100644
--- a/ccx_2.19/src/resultsmech_us3.f
+++ b/ccx_2.19/src/resultsmech_us3.f
@@ -170,7 +170,7 @@
! to be calculated from the PK2 stresses
! nener if 0: internal energy calculation is not required
! else: internal energy is required on output
-! ikin if 0: kinetic energy calculation is not requred
+! ikin if 0: kinetic energy calculation is not required
! else: kinetic energy is required on output
! ne0 largest element number without contact elements (are
! stored after all other elements)
@@ -492,7 +492,7 @@
enddo
endif
!
- ! Internal forces based on displacments
+ ! Internal forces based on displacements
!
if(calcul_fn.eq.1)then
!
diff --git a/ccx_2.19/src/resultsmech_us45.f b/ccx_2.19/src/resultsmech_us45.f
index 283287c..3947a02 100644
--- a/ccx_2.19/src/resultsmech_us45.f
+++ b/ccx_2.19/src/resultsmech_us45.f
@@ -152,7 +152,7 @@
! to be calculated from the PK2 stresses
! nener if 0: internal energy calculation is not required
! else: internal energy is required on output
-! ikin if 0: kinetic energy calculation is not requred
+! ikin if 0: kinetic energy calculation is not required
! else: kinetic energy is required on output
! ne0 largest element number without contact elements (are
! stored after all other elements)
@@ -510,7 +510,7 @@
enddo
endif
!
- ! Internal forces based on displacments
+ ! Internal forces based on displacements
!
if(calcul_fn.eq.1)then
!
@@ -524,7 +524,7 @@
call us4_Km(x,Dm,Kmem)
!
Kshell = Kmem + Kb + Ks
- ! artifical drilling stiffness (Krotz) in orede to avoid singularities
+ ! artificial drilling stiffness (Krotz) in order to avoid singularities
kdmax = 0.d0
do k = 1,24
if(kdmax.LT.abs(Kshell(k,k))) then
diff --git a/ccx_2.19/src/resultsstr.c b/ccx_2.19/src/resultsstr.c
index 68172f9..109cf70 100644
--- a/ccx_2.19/src/resultsstr.c
+++ b/ccx_2.19/src/resultsstr.c
@@ -135,7 +135,7 @@ void resultsstr(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
}
}
- // next line is to be inserted in a similar way for all other paralell parts
+ // next line is to be inserted in a similar way for all other parallel parts
if(*ne<num_cpus) num_cpus=*ne;
diff --git a/ccx_2.19/src/rhsmain.c b/ccx_2.19/src/rhsmain.c
index d29c754..544c4f3 100644
--- a/ccx_2.19/src/rhsmain.c
+++ b/ccx_2.19/src/rhsmain.c
@@ -103,7 +103,7 @@ void rhsmain(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
}
}
- // next line is to be inserted in a similar way for all other paralell parts
+ // next line is to be inserted in a similar way for all other parallel parts
if(*ne<num_cpus) num_cpus=*ne;
diff --git a/ccx_2.19/src/robustdesign.c b/ccx_2.19/src/robustdesign.c
index 8666dba..471bed4 100644
--- a/ccx_2.19/src/robustdesign.c
+++ b/ccx_2.19/src/robustdesign.c
@@ -134,7 +134,7 @@ void robustdesign(double *co,ITG *nk,ITG **konp,ITG **ipkonp,char **lakonp,
}
}
- /* in robust design anaylsis "edge preservation" option is always active */
+ /* in robust design analysis "edge preservation" option is always active */
iregion=1;
/* determining the elements belonging to a given node */
diff --git a/ccx_2.19/src/shape6tritilde.f b/ccx_2.19/src/shape6tritilde.f
index 43e27ec..5e7c045 100644
--- a/ccx_2.19/src/shape6tritilde.f
+++ b/ccx_2.19/src/shape6tritilde.f
@@ -17,7 +17,7 @@
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
!
-! function to evaluate transformed shape funciton \f$ shape(\xi,\eta) \f$
+! function to evaluate transformed shape function \f$ shape(\xi,\eta) \f$
! for quad-quad mortar method, see phd-thesis Sitzmann Chapter 4.1.
!
! Author: Saskia Sitzmann
diff --git a/ccx_2.19/src/shape6tritilde_lin.f b/ccx_2.19/src/shape6tritilde_lin.f
index f98185d..e29c99d 100644
--- a/ccx_2.19/src/shape6tritilde_lin.f
+++ b/ccx_2.19/src/shape6tritilde_lin.f
@@ -17,7 +17,7 @@
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
!
-! function to evaluate transformed shape funciton \f$ shape(\xi,\eta) \f$
+! function to evaluate transformed shape function \f$ shape(\xi,\eta) \f$
! for quad-lin mortar method, see phd-thesis Sitzmann Chapter 4.1.
!
! Author: Saskia Sitzmann
diff --git a/ccx_2.19/src/shape8qtilde.f b/ccx_2.19/src/shape8qtilde.f
index 4f3cff1..e44b307 100644
--- a/ccx_2.19/src/shape8qtilde.f
+++ b/ccx_2.19/src/shape8qtilde.f
@@ -17,7 +17,7 @@
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
!
-! function to evaluate transformed shape funciton \f$ shape(\xi,\eta) \f$
+! function to evaluate transformed shape function \f$ shape(\xi,\eta) \f$
! for quad-quad mortar method, see phd-thesis Sitzmann Chapter 4.1.
!
! Author: Saskia Sitzmann
diff --git a/ccx_2.19/src/shape8qtilde_lin.f b/ccx_2.19/src/shape8qtilde_lin.f
index 9319a0d..af1be63 100644
--- a/ccx_2.19/src/shape8qtilde_lin.f
+++ b/ccx_2.19/src/shape8qtilde_lin.f
@@ -17,7 +17,7 @@
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
!
-! function to evaluate transformed shape funciton \f$ shape(\xi,\eta) \f$
+! function to evaluate transformed shape function \f$ shape(\xi,\eta) \f$
! for quad-lin mortar method, see phd-thesis Sitzmann Chapter 4.1.
!
! Author: Saskia Sitzmann
diff --git a/ccx_2.19/src/slavintmortar.f b/ccx_2.19/src/slavintmortar.f
index c8ced8e..b7355a4 100644
--- a/ccx_2.19/src/slavintmortar.f
+++ b/ccx_2.19/src/slavintmortar.f
@@ -27,8 +27,8 @@
! [out] imastsurf pointer into pmastsurf
! [out] pmastsurf field storing position and weights for integration points on master side
! [in] islavnode fields containing nodes of slace surfaces
-! [in] nslavnode (i) for contraint i pointer into field islavnode
-! [in] imastop (l,i) for edge l in triagle i neightbouring triangle
+! [in] nslavnode (i) for constraint i pointer into field islavnode
+! [in] imastop (l,i) for edge l in triagle i neighbouring triangle
! [out] gapmints stores gaps between master and slave side
! [in,out] islavact (i) indicates, if slave node i is active (=-3 no-slave-node, =-2 no-LM-node, =-1 no-gap-node, =0 inactive node, =1 sticky node, =2 slipping/active node)
! [in] ncont number of triangles in triagulation of master side
@@ -410,7 +410,7 @@
c if(id.ne.0 .and. icoveredmelem(id).eq.nelemm)then
if(id.gt.0) then
!
-! master elment was already threated
+! master element was already treated
!
if(icoveredmelem(id).eq.nelemm) cycle
endif
@@ -763,7 +763,7 @@ c if(id .gt. 0 .and. icoveredmelem(id).eq.nelemm)then
if(id.gt.0) then
if(icoveredmelem(id).eq.nelemm) then
!
-! master elment was already threated
+! master element was already treated
!
nactiveline=nactiveline-1
do il=1,nactiveline
diff --git a/ccx_2.19/src/slavintpoints.f b/ccx_2.19/src/slavintpoints.f
index 2938328..2dbd2ab 100644
--- a/ccx_2.19/src/slavintpoints.f
+++ b/ccx_2.19/src/slavintpoints.f
@@ -290,7 +290,7 @@
!
call nident(icoveredmelem,nelemm,ncoveredmelem,id)
if(id.ne.0 .and. icoveredmelem(id).eq.nelemm)then
-! master element was already threated
+! master element was already treated
cycle
else
! add master element to covered elements
@@ -605,7 +605,7 @@
call nident(icoveredmelem,nelemm,ncoveredmelem,id)
if(id .gt. 0 .and. icoveredmelem(id).eq.nelemm)then
!
-! master elment was already threated
+! master element was already treated
!
nactiveline=nactiveline-1
do il=1,nactiveline
diff --git a/ccx_2.19/src/spooles.h b/ccx_2.19/src/spooles.h
index 388f1ff..513f427 100755
--- a/ccx_2.19/src/spooles.h
+++ b/ccx_2.19/src/spooles.h
@@ -18,7 +18,7 @@
#define __CCX_SPOOLES_H
/*
- * seperated from CalculiX.h: otherwise everyone would have to include
+ * separated from CalculiX.h: otherwise everyone would have to include
* the spooles header files
*/
diff --git a/ccx_2.19/src/storecontactprop.f b/ccx_2.19/src/storecontactprop.f
index 875f74d..cfab171 100644
--- a/ccx_2.19/src/storecontactprop.f
+++ b/ccx_2.19/src/storecontactprop.f
@@ -29,8 +29,8 @@
!
! Main variables and meaning
!
-! temax : max. natural period of oscillation
-! stx : vector containig results (from results.c)
+! temax : max. natural period of oscillation
+! stx : vector containing results (from results.c)
! springmm : average mass of master surface
! springms : average mass of slave surface
! xk : spring stiffness between the surfaces
diff --git a/ccx_2.19/src/stressintensity.f b/ccx_2.19/src/stressintensity.f
index 786d719..366f5cc 100644
--- a/ccx_2.19/src/stressintensity.f
+++ b/ccx_2.19/src/stressintensity.f
@@ -77,7 +77,7 @@ c write(*,*)
!
! calculating the equivalent K-factor, the deflection angle
! and twist angle (formulas by Hans Richard, University of Paderborn;
-! slightly modified to accomodate negative dk1 as well)
+! slightly modified to accommodate negative dk1 as well)
!
do i=1,nfront
do m=1,nstep
diff --git a/ccx_2.19/src/stressmortar.c b/ccx_2.19/src/stressmortar.c
index 432e348..b55d654 100644
--- a/ccx_2.19/src/stressmortar.c
+++ b/ccx_2.19/src/stressmortar.c
@@ -51,7 +51,7 @@
* [in] irowtlocinv field containing row numbers of autlocinv
* [in] jqtlocinv pointer into field irowtlocinv
* [in] autlocinv transformation matrix \f$ T^{-1}[p,q]\f$ for slave nodes \f$ p,q \f$
- * [in] ntie number of contraints
+ * [in] ntie number of constraints
* [in] nslavnode (i)pointer into field isalvnode for contact tie i
* [in] islavnode field storing the nodes of the slave surface
* [in] nmastnode (i)pointer into field imastnode for contact tie i
@@ -841,7 +841,7 @@ void stressmortar(double *bhat,double *adc,double *auc,ITG *jqc,ITG *irowc,
if(keepset==0){
- /* relative convergence critera for semi-smooth Newton */
+ /* relative convergence criteria for semi-smooth Newton */
if(max_ncf_n>1.e-3 ){*iflagact=1;}
if((max_ncf_t[0]/((lm_t1_av+0.001)/(nstick+nslip+0.001))>9.e-4 ||
@@ -851,7 +851,7 @@ void stressmortar(double *bhat,double *adc,double *auc,ITG *jqc,ITG *irowc,
SFREE(unitmatrix);
- /* calculating the contact forces
+ /* calculating the contact forces
Ph.D. Thesis Stefan Hartmann eqn. (6.26) */
// fill cstress for nogap nodes
diff --git a/ccx_2.19/src/tee.f b/ccx_2.19/src/tee.f
index c96fe1e..e3827b8 100644
--- a/ccx_2.19/src/tee.f
+++ b/ccx_2.19/src/tee.f
@@ -50,10 +50,10 @@
! Array which shows where the properties of a given element
! begin in prop
&ielprop(*),
-! Contains the nodes where the dependant varibles for this
+! Contains the nodes where the dependent variables for this
! element are
&nodef(*),
-! Contains the type of the dependant variables
+! Contains the type of the dependent variables
&idirf(*),
! The starting index of the given element#s properties in prop
&index,
@@ -185,7 +185,7 @@
!
! Calculation of residual/derivatives
!
-! Number of dependant variables(corresponding derivatives)
+! Number of dependent variables(corresponding derivatives)
numf=6
!
! Calculate kappa
diff --git a/ccx_2.19/src/thickness.f b/ccx_2.19/src/thickness.f
index b5bf548..76b4dd9 100644
--- a/ccx_2.19/src/thickness.f
+++ b/ccx_2.19/src/thickness.f
@@ -20,7 +20,7 @@
& objectset,xo,yo,zo,x,y,z,nx,ny,nz,co,ifree,ndesia,
& ndesib,iobject,ndesi,dgdxglob,nk,normdesi)
!
-! calcualtion of the actual wall thickness
+! calculation of the actual wall thickness
!
implicit none
!
diff --git a/ccx_2.19/src/topocfdfem.f b/ccx_2.19/src/topocfdfem.f
index ae3f502..313dfd2 100644
--- a/ccx_2.19/src/topocfdfem.f
+++ b/ccx_2.19/src/topocfdfem.f
@@ -23,7 +23,7 @@
& istartset,iendset,ialset,nset,iturbulent,inomat,ielmat,
& ipface)
!
-! preliminary calculations for cfd applicatons:
+! preliminary calculations for cfd applications:
! - determining the external faces of the mesh and storing
! them in fields nelemface and sideface
! - determining the nodes belonging to solid surfaces and
@@ -502,7 +502,7 @@
call nident(nelemface,i,nface,ipface(i))
enddo
!
-! filling inomat: asigns a material to fluid nodes.
+! filling inomat: assigns a material to fluid nodes.
! (a fluid nodes is not assumed to be part of two
! different fluids)
!
diff --git a/ccx_2.19/src/trafontmortar2.c b/ccx_2.19/src/trafontmortar2.c
index 60e7aa4..697940a 100644
--- a/ccx_2.19/src/trafontmortar2.c
+++ b/ccx_2.19/src/trafontmortar2.c
@@ -3,11 +3,10 @@
/* This program is free software; you can redistribute it and/or */
/* modify it under the terms of the GNU General Public License as */
-/* published by the Free Software Foundation(version 2); */
-/* */
+/* published by the Free Software Foundation(version 2); */
/* This program is distributed in the hope that it will be useful, */
-/* but WITHOUT ANY WARRANTY; without even the implied warranty of */
+/* but WITHOUT ANY WARRANTY; without even the implied warranty of */
/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
/* GNU General Public License for more details. */
@@ -26,12 +25,12 @@
#define max(a,b) ((a) >= (b) ? (a) : (b))
/**
- * Condense Lagrange Multiplier and embedd contact conditionds for \f$ K_{AX}\f$
+ * Condense Lagrange Multiplier and embed contact conditions for \f$ K_{AX}\f$
* changing au due to N and T (normal and tangential
* direction at the slave surface)
* changing b due to N and T (normal and tangential
* direction at the slave surface)
- * phd-thesis Sitzmann, Chapter 3+4, equation (4.15) (Tpye=MORTAR/LINMORTAR) or (4.24) (TYPE=PGLINMORTAR)
+ * phd-thesis Sitzmann, Chapter 3+4, equation (4.15) (Type=MORTAR/LINMORTAR) or (4.24) (TYPE=PGLINMORTAR)
*
* author: Saskia Sitzmann
* [in] islavactdof (i)=10*slavenodenumber+direction for active dof i
@@ -1586,7 +1585,7 @@ void trafontmortar2(ITG *neq,ITG *nzs,ITG *islavactdof,ITG *islavact,
idof2=nactdof[mt*node-2]-1;
idof3=nactdof[mt*node-1]-1;
- /* get normal and tangetials **/
+ /* get normal and tangentials **/
for(l=0;l<3;l++){
n[l]=slavnor[3*(islavnodeentry-1)+l];
@@ -2114,7 +2113,7 @@ void trafontmortar2(ITG *neq,ITG *nzs,ITG *islavactdof,ITG *islavact,
idof2=nactdof[mt*node-2]-1;
idof3=nactdof[mt*node-1]-1;
- /* get normal and tangetials **/
+ /* get normal and tangentials **/
for(l=0;l<3;l++){
n[l]=slavnor[3*(islavnodeentry-1)+l];
diff --git a/ccx_2.19/src/transformatrix.f b/ccx_2.19/src/transformatrix.f
index 4cc36ac..b11dee1 100644
--- a/ccx_2.19/src/transformatrix.f
+++ b/ccx_2.19/src/transformatrix.f
@@ -18,7 +18,7 @@
!
subroutine transformatrix(xab,p,a)
!
-! determines the transformation matrix a in a point p for a carthesian
+! determines the transformation matrix a in a point p for a cartesian
! (xab(7)>0) or cylindrical transformation (xab(7)<0)
!
implicit none
@@ -31,7 +31,7 @@
!
if(xab(7).gt.0) then
!
-! carthesian transformation
+! cartesian transformation
!
e1(1)=xab(1)
e1(2)=xab(2)
diff --git a/ccx_2.19/src/treatmasterface_mortar.f b/ccx_2.19/src/treatmasterface_mortar.f
index e51f7c1..a051a50 100644
--- a/ccx_2.19/src/treatmasterface_mortar.f
+++ b/ccx_2.19/src/treatmasterface_mortar.f
@@ -29,7 +29,7 @@
! [in] xl2sp projected positions of slave nodes
! [in] ipe (i) pointer to ime for node i
! [in] ime ... cataloging the edges with node i
-! [in,out] iactiveline field storing the active master triange lines for the active line search
+! [in,out] iactiveline field storing the active master triangle lines for the active line search
! [in,out] nactiveline number of active lines
! [in] nelemm current master element
! [in,out] nintpoint number of generated integration points
diff --git a/ccx_2.19/src/twodint.f b/ccx_2.19/src/twodint.f
index f8e79c1..4178830 100644
--- a/ccx_2.19/src/twodint.f
+++ b/ccx_2.19/src/twodint.f
@@ -19,15 +19,15 @@
C
C 1.TASK INTERPOLATION OF A TWO DIMENSIONAL FUNCTION DEFINED POINT BY POINT
C ********* THE X COORDINATES ARE USER SPECIFIED.
-c THE INTERPOLATION TYPE CAN BE INDEPENDANTLY CHOSEN IN THE TWO DIRECTIONS
+c THE INTERPOLATION TYPE CAN BE INDEPENDENTLY CHOSEN IN THE TWO DIRECTIONS
C EITHER CONSTANT, LINEAR OR DOUBLE QUADRATIC.
C BEYOND THE FIELD OF INTERPOLATION AN EXTRAOLATION IS CARRIED OUT.
C FOR ALL FOUR EXTRAPOLATION DIRECTIONS DIFFERENT EXTRAPOLATION METHOD
-C (C ONSTANT,LINEAR,QUADRATIC) CAN BE CHOSEN, WHICH ORDER MUST NOT BE HIGHER
+C (CONSTANT,LINEAR,QUADRATIC) CAN BE CHOSEN, WHICH ORDER MUST NOT BE HIGHER
C THAN THE IONTERPOLATION ORDER
C
C 2.UP-AUFRUF CALL TWODINT(T,LSP,IART,XA,YA,ZA,NA,IEXP,IER)
-C *********** T = MATRIX OF THE SAMPLE POINTS FORMATED AS FOLLOW
+C *********** T = MATRIX OF THE SAMPLE POINTS FORMATTED AS FOLLOW
C T(1,1) = NX + NY * 0.001
C NX = NUMBER OF LINES T
C NY = NUMBER OF COLUMNS T
@@ -47,7 +47,7 @@ C XA = VECTOR OF THE X COORDINATES OF THE VALUE TO
C YA = VECTOR OF THE Y COORDINATES OF THE VALUE TO BE INTERPOLATED
C ZA = VECTOR OF THE INTERPOLATED VALUES
C NA = ACTUAL LENGTH OF THE 3 PREVIOUS VECTORS
-C IEXP = TWO ELEMENT VECTOR CONTRAINING THE TYPE OF EXTRAPOLATION
+C IEXP = TWO ELEMENT VECTOR CONSTRAINING THE TYPE OF EXTRAPOLATION
C CHOSEN BEYOND THE INTERPOLATION DOMAIN
C IEXP(1): EXTRAPOLATION IN X-DIRECTION
C IEXP(1) = IEXPX1 * 10 + IEXPXN
@@ -61,23 +61,23 @@ C IER = 0: NORMAL PROCEEDING
C IER = -1: ERROR INPUTDATA
C
C REMARK: CHOICE OF THE INTER- EXTRAPOLATION TYPE IART AND IEXP -
-C -------- ASSIGNEMENT OF INTX,INTY,IEXPX1,
+C -------- ASSIGNMENT OF INTX,INTY,IEXPX1,
C IEXPXN,IEXPY1,IEXPYN:
C = 0 : CONSTANT
C = 1 : LINEAR
C = 2 : DOUBLE QUADRATIC FROM
-C THE SECOND UNTIL PENULTIMATE
+C THE SECOND UNTIL PENULTIMATE
C INTERVAL IN THE INTERPOLATION MATRIX T,OTHERWISE QUADRATIC
C
C 3.RESTRICTIONS THE SAMPLING POINT VECTORS (X UND Y COORDINATES
-C *************** OF THE MATRICX T MUST BE STRICTLY MONOTONIC INCREASING SORTED
+C *************** OF THE MATRICX T MUST BE STRICTLY MONOTONIC INCREASING SORTED
C THE PARAMETER FOR THE TYPE OF EXTRAPOLATION
c MUST NOT BE GREATER THAN THE ONE FOR TH EINTERPOLATION TYPE
-C OTHERWISE THE VALUE IS AUTOMATICALLY ADAPTATED
+C OTHERWISE THE VALUE IS AUTOMATICALLY ADAPTATED
C IF THE NUMBER OF THE SAMPLING POINTS FOR THE REQUIRED TYPE OF INTERPOLATION IS TOO SMALL,
C THE DEGREE OF INTERPOLATION WILL BE ACCORDINGLY ADAPTATED
C
-C 4.USED UP'S ONEDINT (ONE DIMENSIONAL INTERPOLATION ANALOG TO THIS PROGRAMM)
+C 4.USED UP'S ONEDINT (ONE DIMENSIONAL INTERPOLATION ANALOG TO THIS PROGRAM)
C
SUBROUTINE TWODINT (T,LSP,IART,XA,YA,ZA,NA,IEXP,IER)
diff --git a/ccx_2.19/src/umpc_dist.f b/ccx_2.19/src/umpc_dist.f
index 9985bfd..a58c601 100644
--- a/ccx_2.19/src/umpc_dist.f
+++ b/ccx_2.19/src/umpc_dist.f
@@ -36,7 +36,7 @@
!
! INPUT:
!
-! x(3,n) Carthesian coordinates of the nodes in the
+! x(3,n) Cartesian coordinates of the nodes in the
! user mpc.
! u(3,n) Actual displacements of the nodes in the
! user mpc.
diff --git a/ccx_2.19/src/umpc_mean_rot.f b/ccx_2.19/src/umpc_mean_rot.f
index 2603f7c..dce7a67 100644
--- a/ccx_2.19/src/umpc_mean_rot.f
+++ b/ccx_2.19/src/umpc_mean_rot.f
@@ -23,7 +23,7 @@
!
! INPUT:
!
-! x(3,1..n) Carthesian coordinates of the nodes in the
+! x(3,1..n) Cartesian coordinates of the nodes in the
! user mpc.
! u(3,1..n) Actual displacements of the nodes in the
! user mpc.
diff --git a/ccx_2.19/src/umpc_user.f b/ccx_2.19/src/umpc_user.f
index 9b2c0d6..15ff1e1 100644
--- a/ccx_2.19/src/umpc_user.f
+++ b/ccx_2.19/src/umpc_user.f
@@ -22,7 +22,7 @@
!
! INPUT:
!
-! x(3,n) Carthesian coordinates of the nodes in the
+! x(3,n) Cartesian coordinates of the nodes in the
! user mpc.
! u(3,n) Actual displacements of the nodes in the
! user mpc.
diff --git a/ccx_2.19/src/uncouptempdisps.f b/ccx_2.19/src/uncouptempdisps.f
index f274a01..c578324 100644
--- a/ccx_2.19/src/uncouptempdisps.f
+++ b/ccx_2.19/src/uncouptempdisps.f
@@ -66,7 +66,7 @@
if(istep.lt.1) then
write(*,*)
& '*ERROR reading *UNCOUPLED TEMPERATURE-DISPLACEMENT:'
- write(*,*) ' *UNCOUPLED TEMPERATURE-DISPLACMENT '
+ write(*,*) ' *UNCOUPLED TEMPERATURE-DISPLACEMENT '
write(*,*) ' can only be used within a STEP'
ier=1
return
diff --git a/ccx_2.19/src/updatecontpen.f b/ccx_2.19/src/updatecontpen.f
index af4c307..42421c0 100644
--- a/ccx_2.19/src/updatecontpen.f
+++ b/ccx_2.19/src/updatecontpen.f
@@ -76,7 +76,7 @@
!
data iflag /2/
!
-! new added data for the local coodinates for nodes
+! new added data for the local coordinates for nodes
!
data xquad /-1.d0,-1.d0,
& 1.d0,-1.d0,
diff --git a/ccx_2.19/src/us3_sub.f b/ccx_2.19/src/us3_sub.f
index 672fb5f..5d3867a 100644
--- a/ccx_2.19/src/us3_sub.f
+++ b/ccx_2.19/src/us3_sub.f
@@ -875,7 +875,7 @@
!
Kb = matmul(matmul(L,Qin),transpose(L))/V
!
- ! trasformation hierachical rotations
+ ! transformation hierarchical rotations
!
T0(1,1) = x32/A4
T0(1,2) = y32/A4
@@ -1076,7 +1076,7 @@
L(9,3) = h2*(x23*y32-x31*y13)*2.d0*ab
!
!
- ! trasformation hierachical rotations
+ ! transformation hierarchical rotations
!
T0(1,1) = x32/A4
T0(1,2) = y32/A4
diff --git a/ccx_2.19/src/usermpc.f b/ccx_2.19/src/usermpc.f
index ed77425..47eaf6c 100644
--- a/ccx_2.19/src/usermpc.f
+++ b/ccx_2.19/src/usermpc.f
@@ -340,7 +340,7 @@ c if(c1.lt.1.d-20) then
!
! dependent node of MPC should not have the same
! sign as the corresponding dof of the translational
-! degrees of freedom: avoids the occurence of a
+! degrees of freedom: avoids the occurrence of a
! zero coefficient of the dependent term if both
! rotational and translational dofs are suppressed
!
diff --git a/ccx_2.19/src/vortex.f b/ccx_2.19/src/vortex.f
index 133ea96..4aa2beb 100644
--- a/ccx_2.19/src/vortex.f
+++ b/ccx_2.19/src/vortex.f
@@ -331,7 +331,7 @@
endif
endif
!
-! outpout
+! output
!
elseif(iflag.eq.3) then
!
diff --git a/ccx_2.19/src/zeta_calc.f b/ccx_2.19/src/zeta_calc.f
index 0d70b02..c8f7742 100644
--- a/ccx_2.19/src/zeta_calc.f
+++ b/ccx_2.19/src/zeta_calc.f
@@ -728,7 +728,7 @@
rad=prop(index+4)
! angle
delta=prop(index+5)
-! heigth/width (square section)
+! height/width (square section)
a0=prop(index+6)
b0=prop(index+7)
!
@@ -924,7 +924,7 @@
& (lakon(nelem)(2:7).eq.'LPLOLI')) then
!
! 'METHOD OF LICHTAROWICZ'
-! "Discharge coeffcients for incompressible non-cavitating
+! "Discharge coefficients for incompressible non-cavitating
! flow through long orifices"
! A. Lichtarowicz, R.K duggins and E. Markland
! Journal Mechanical Engineering Science , vol 7, No. 2, 1965
@@ -1293,7 +1293,7 @@ c xflow2=v(1,nodem2)
call twodint(Z90TAB,n6,n11,a2a0,V2V0,zeta,
& n1,iexpbr1,ier)
zeta=zeta*(W0W1)**2
-! cheching whether the table eveluation in the eptrapolated domain
+! checking whether the table evaluation in the extrapolated domain
! (This procedure is guessed from the original table)
!
Z90LIM11=Z90LIMX(1)
diff --git a/ccx_2.19/src/zienzhu.f b/ccx_2.19/src/zienzhu.f
index 012af07..3f12afc 100644
--- a/ccx_2.19/src/zienzhu.f
+++ b/ccx_2.19/src/zienzhu.f
@@ -148,7 +148,7 @@
! case 1: element type not supported
!
if(itypflag.eq.0) then
- write(*,*) '*WARINING in estimator: Elements of node',
+ write(*,*) '*WARNING in estimator: Elements of node',
& nodebase,' cannot be used for error estimation.'
do j=1,6
scpav(j,nodebase)=stn(j,nodebase)
--
2.35.1
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment