From: Wolfgang Fütterer <debian@wlf-online.de>
Date: Mon, 12 Sep 2022 20:01:18 +0530
Subject: Fixed spelling errors

Forwarded: not-needed
Last-Update: 2016-08-08
---
 ccx_2.20/src/cd_bleedtapping.f   |  2 +-
 ccx_2.20/src/cd_own_albers.f     |  2 +-
 ccx_2.20/src/cd_pk_albers.f      |  2 +-
 ccx_2.20/src/characteristic.f    |  2 +-
 ccx_2.20/src/compfluidfem.c      |  2 +-
 ccx_2.20/src/gapconductances.f   |  2 +-
 ccx_2.20/src/initialnet.f        |  6 +++---
 ccx_2.20/src/intersectionpoint.f |  2 +-
 ccx_2.20/src/mafilldmssmain.c    |  2 +-
 ccx_2.20/src/mafillsmmain.c      |  2 +-
 ccx_2.20/src/mafillsmmain_se.c   |  2 +-
 ccx_2.20/src/orifice.f           |  4 ++--
 ccx_2.20/src/radflowload.c       |  2 +-
 ccx_2.20/src/readfrd.c           | 10 +++++-----
 ccx_2.20/src/results.c           |  2 +-
 ccx_2.20/src/results_se.c        |  2 +-
 ccx_2.20/src/resultsinduction.c  |  2 +-
 ccx_2.20/src/resultsstr.c        |  2 +-
 ccx_2.20/src/rhsmain.c           |  2 +-
 19 files changed, 26 insertions(+), 26 deletions(-)

diff --git a/ccx_2.20/src/cd_bleedtapping.f b/ccx_2.20/src/cd_bleedtapping.f
index 9eb1675..0e2e3f3 100644
--- a/ccx_2.20/src/cd_bleedtapping.f
+++ b/ccx_2.20/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.20/src/cd_own_albers.f b/ccx_2.20/src/cd_own_albers.f
index 1bbee72..24b43d8 100644
--- a/ccx_2.20/src/cd_own_albers.f
+++ b/ccx_2.20/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.20/src/cd_pk_albers.f b/ccx_2.20/src/cd_pk_albers.f
index 072be7c..3d89fc6 100644
--- a/ccx_2.20/src/cd_pk_albers.f
+++ b/ccx_2.20/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.20/src/characteristic.f b/ccx_2.20/src/characteristic.f
index 91f6780..d92a4b2 100644
--- a/ccx_2.20/src/characteristic.f
+++ b/ccx_2.20/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.20/src/compfluidfem.c b/ccx_2.20/src/compfluidfem.c
index ed06836..859c805 100644
--- a/ccx_2.20/src/compfluidfem.c
+++ b/ccx_2.20/src/compfluidfem.c
@@ -198,7 +198,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.20/src/gapconductances.f b/ccx_2.20/src/gapconductances.f
index d90ed06..951e334 100644
--- a/ccx_2.20/src/gapconductances.f
+++ b/ccx_2.20/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.20/src/initialnet.f b/ccx_2.20/src/initialnet.f
index 34cf9a6..64425f1 100644
--- a/ccx_2.20/src/initialnet.f
+++ b/ccx_2.20/src/initialnet.f
@@ -721,7 +721,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,
@@ -741,12 +741,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.20/src/intersectionpoint.f b/ccx_2.20/src/intersectionpoint.f
index 55fe0d6..b6809a7 100644
--- a/ccx_2.20/src/intersectionpoint.f
+++ b/ccx_2.20/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.20/src/mafilldmssmain.c b/ccx_2.20/src/mafilldmssmain.c
index 75635ac..4c7768e 100644
--- a/ccx_2.20/src/mafilldmssmain.c
+++ b/ccx_2.20/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.20/src/mafillsmmain.c b/ccx_2.20/src/mafillsmmain.c
index 66a0c6b..d05c02a 100644
--- a/ccx_2.20/src/mafillsmmain.c
+++ b/ccx_2.20/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.20/src/mafillsmmain_se.c b/ccx_2.20/src/mafillsmmain_se.c
index ca79b67..c5bd046 100644
--- a/ccx_2.20/src/mafillsmmain_se.c
+++ b/ccx_2.20/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.20/src/orifice.f b/ccx_2.20/src/orifice.f
index d45fc53..47d87c3 100644
--- a/ccx_2.20/src/orifice.f
+++ b/ccx_2.20/src/orifice.f
@@ -198,7 +198,7 @@
                else
                   write(*,*) '*ERROR in orifice:'
                   write(*,*) ' element',nelemswirl
-                  write(*,*) ' refered by element',nelem
+                  write(*,*) ' referred by element',nelem
                   write(*,*) ' is not a swirl generating element'
                endif
             endif
@@ -526,7 +526,7 @@ c            endif
                else
                   write(*,*) '*ERROR in orifice:'
                   write(*,*) ' element',nelemswirl
-                  write(*,*) 'refered by element',nelem
+                  write(*,*) 'referred by element',nelem
                   write(*,*) 'is not a swirl generating element'
                endif
             endif
diff --git a/ccx_2.20/src/radflowload.c b/ccx_2.20/src/radflowload.c
index 18d28a1..d783ec4 100644
--- a/ccx_2.20/src/radflowload.c
+++ b/ccx_2.20/src/radflowload.c
@@ -455,7 +455,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.20/src/readfrd.c b/ccx_2.20/src/readfrd.c
index ff53249..0d7344b 100644
--- a/ccx_2.20/src/readfrd.c
+++ b/ccx_2.20/src/readfrd.c
@@ -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);
   }
 
@@ -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.20/src/results.c b/ccx_2.20/src/results.c
index 4e0affd..e0e6a0d 100644
--- a/ccx_2.20/src/results.c
+++ b/ccx_2.20/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.20/src/results_se.c b/ccx_2.20/src/results_se.c
index 25f89cd..f7f773b 100644
--- a/ccx_2.20/src/results_se.c
+++ b/ccx_2.20/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.20/src/resultsinduction.c b/ccx_2.20/src/resultsinduction.c
index addc148..0a32609 100644
--- a/ccx_2.20/src/resultsinduction.c
+++ b/ccx_2.20/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.20/src/resultsstr.c b/ccx_2.20/src/resultsstr.c
index a956751..3dd0fb0 100644
--- a/ccx_2.20/src/resultsstr.c
+++ b/ccx_2.20/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.20/src/rhsmain.c b/ccx_2.20/src/rhsmain.c
index 986c6c7..196dd64 100644
--- a/ccx_2.20/src/rhsmain.c
+++ b/ccx_2.20/src/rhsmain.c
@@ -104,7 +104,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;