geodynamics
diff --git a/‎src/bc.mod‎
2 Bytes b/‎src/bc.mod‎
2 Bytes
diff --git a/‎src/common.h‎
Lines changed: 6 additions & 2 deletions b/‎src/common.h‎
Lines changed: 6 additions & 2 deletions
diff --git a/‎src/fe.mod‎
3 Bytes b/‎src/fe.mod‎
3 Bytes
diff --git a/‎src/materials.mod‎
3 Bytes b/‎src/materials.mod‎
3 Bytes
diff --git a/‎src/mstres.mod‎
2 Bytes b/‎src/mstres.mod‎
2 Bytes
diff --git a/‎src/solver.mod‎
2 Bytes b/‎src/solver.mod‎
2 Bytes
diff --git a/‎src/subduct.src/common.h‎
Lines changed: 0 additions & 1 deletion b/‎src/subduct.src/common.h‎
Lines changed: 0 additions & 1 deletion
diff --git a/‎src/subduct.src/common.h‎
Lines changed: 53 additions & 0 deletions b/‎src/subduct.src/common.h‎
Lines changed: 53 additions & 0 deletions
diff --git a/‎src/utils.src/common.h‎
Lines changed: 0 additions & 1 deletion b/‎src/utils.src/common.h‎
Lines changed: 0 additions & 1 deletion
diff --git a/‎src/utils.src/common.h‎
Lines changed: 53 additions & 0 deletions b/‎src/utils.src/common.h‎
Lines changed: 53 additions & 0 deletions
@@ -8,7 +8,7 @@ c
 c----------------------------------------------------------------------
 c
 ccccccccc1ccccccccc2ccccccccc3ccccccccc4ccccccccc5ccccccccc6ccccccccc7cc
-c       real*4  cpunew, cpuold, cpu(20)
+        real*4  a, cpunew, cpuold, cpu(20)
         character*1 ititle
 c
         common a(1)
@@ -19,16 +19,19 @@ c
         common /elmpar/ numel , nen   , 
      &                  numsuf, nipt  , nsize  ,
      &                  nsizet, nodebn, ntotal
+   
 c
         common /glbpar/ numnp  ,  nsd    , ndof   , nelx    , nelz , 
      &                  necho  ,  inrstr , iorstr , iflow   , 
      &                  ntimvs ,  ntseq  , numeg  , nwrap   , numat,
      &                  neqt   ,  neqv   , ipad    ,
      &                  iistep ,  itype  , isolve,
      &                  Di     ,  diff_T , cgamma  , rho0    , T0
+     
 c
         common /io    / iin,    igeom, iout , itsout , itout , imout, 
      &                  irsin , irsout, icomp, igeoid
+     
         common /ioc   / name5
 c
         common /title / ititle(80)
@@ -46,4 +49,5 @@ c
 c
         common /fswtch/ FACSTW, restart, itrec
         common /timer1/ cpu  ,cpunew,  cpuold, icode
-        common /wedge / is_wedge_benchmark
+c       
+c       parameter (ireg = 0)
@@ -0,0 +1,53 @@
+c----------------------------------------------------------------------
+c
+c  This file contains the common blocks and the data declaration
+c needed for the routines.  Hence, it is not necessary to modify
+c the common blocks other than in this file, with the following
+c
+c
+c----------------------------------------------------------------------
+c
+ccccccccc1ccccccccc2ccccccccc3ccccccccc4ccccccccc5ccccccccc6ccccccccc7cc
+        real*4  a, cpunew, cpuold, cpu(20)
+        character*1 ititle
+c
+        common a(1)
+c
+        common /const /zero  , pt25,    pt33,   pt5,     pt66,   one,    
+     &                 onept5, two ,   three,  four,   sixten,  eps7
+c
+        common /elmpar/ numel , nen   , 
+     &                  numsuf, nipt  , nsize  ,
+     &                  nsizet, nodebn, ntotal
+   
+c
+        common /glbpar/ numnp  ,  nsd    , ndof   , nelx    , nelz , 
+     &                  necho  ,  inrstr , iorstr , iflow   , 
+     &                  ntimvs ,  ntseq  , numeg  , nwrap   , numat,
+     &                  neqt   ,  neqv   , ipad    ,
+     &                  iistep ,  itype  , isolve,
+     &                  Di     ,  diff_T , cgamma  , rho0    , T0
+     
+c
+        common /io    / iin,    igeom, iout , itsout , itout , imout, 
+     &                  irsin , irsout, icomp, igeoid
+     
+        common /ioc   / name5
+c
+        common /title / ititle(80)
+c
+        common /tmdata/dt     , time   , 
+     &                 alpha  , accel,
+     &                 time0  , tmax   , tsave  , 
+     &                 t_ini  , t_end  , datasv ,
+     &                 tmovis , 
+     &                 lstep  , npass  , istep0 , nstep  , 
+     &                 niter  , nstprt 
+     
+c
+        common /box / pert , xsize , zsize 
+c
+        common /fswtch/ FACSTW, restart, itrec
+        common /timer1/ cpu  ,cpunew,  cpuold, icode
+c       
+c       parameter (ireg = 0)
@@ -0,0 +1,53 @@
+c----------------------------------------------------------------------
+c
+c  This file contains the common blocks and the data declaration
+c needed for the routines.  Hence, it is not necessary to modify
+c the common blocks other than in this file, with the following
+c
+c
+c----------------------------------------------------------------------
+c
+ccccccccc1ccccccccc2ccccccccc3ccccccccc4ccccccccc5ccccccccc6ccccccccc7cc
+        real*4  a, cpunew, cpuold, cpu(20)
+        character*1 ititle
+c
+        common a(1)
+c
+        common /const /zero  , pt25,    pt33,   pt5,     pt66,   one,    
+     &                 onept5, two ,   three,  four,   sixten,  eps7
+c
+        common /elmpar/ numel , nen   , 
+     &                  numsuf, nipt  , nsize  ,
+     &                  nsizet, nodebn, ntotal
+   
+c
+        common /glbpar/ numnp  ,  nsd    , ndof   , nelx    , nelz , 
+     &                  necho  ,  inrstr , iorstr , iflow   , 
+     &                  ntimvs ,  ntseq  , numeg  , nwrap   , numat,
+     &                  neqt   ,  neqv   , ipad    ,
+     &                  iistep ,  itype  , isolve,
+     &                  Di     ,  diff_T , cgamma  , rho0    , T0
+     
+c
+        common /io    / iin,    igeom, iout , itsout , itout , imout, 
+     &                  irsin , irsout, icomp, igeoid
+     
+        common /ioc   / name5
+c
+        common /title / ititle(80)
+c
+        common /tmdata/dt     , time   , 
+     &                 alpha  , accel,
+     &                 time0  , tmax   , tsave  , 
+     &                 t_ini  , t_end  , datasv ,
+     &                 tmovis , 
+     &                 lstep  , npass  , istep0 , nstep  , 
+     &                 niter  , nstprt 
+     
+c
+        common /box / pert , xsize , zsize 
+c
+        common /fswtch/ FACSTW, restart, itrec
+        common /timer1/ cpu  ,cpunew,  cpuold, icode
+c       
+c       parameter (ireg = 0)
Original file line number	Diff line number	Diff line change
`@@ -8,7 +8,7 @@ c`
`8`	`8`	`c----------------------------------------------------------------------`
`9`	`9`	`c`
`10`	`10`	`ccccccccc1ccccccccc2ccccccccc3ccccccccc4ccccccccc5ccccccccc6ccccccccc7cc`
`11`		`-c real*4 cpunew, cpuold, cpu(20)`
	`11`	`+ real*4 a, cpunew, cpuold, cpu(20)`
`12`	`12`	`character*1 ititle`
`13`	`13`	`c`
`14`	`14`	`common a(1)`
`@@ -19,16 +19,19 @@ c`
`19`	`19`	`common /elmpar/ numel , nen ,`
`20`	`20`	`& numsuf, nipt , nsize ,`
`21`	`21`	`& nsizet, nodebn, ntotal`
	`22`	`+`
`22`	`23`	`c`
`23`	`24`	`common /glbpar/ numnp , nsd , ndof , nelx , nelz ,`
`24`	`25`	`& necho , inrstr , iorstr , iflow ,`
`25`	`26`	`& ntimvs , ntseq , numeg , nwrap , numat,`
`26`	`27`	`& neqt , neqv , ipad ,`
`27`	`28`	`& iistep , itype , isolve,`
`28`	`29`	`& Di , diff_T , cgamma , rho0 , T0`
	`30`	`+`
`29`	`31`	`c`
`30`	`32`	`common /io / iin, igeom, iout , itsout , itout , imout,`
`31`	`33`	`& irsin , irsout, icomp, igeoid`
	`34`	`+`
`32`	`35`	`common /ioc / name5`
`33`	`36`	`c`
`34`	`37`	`common /title / ititle(80)`
`@@ -46,4 +49,5 @@ c`
`46`	`49`	`c`
`47`	`50`	`common /fswtch/ FACSTW, restart, itrec`
`48`	`51`	`common /timer1/ cpu ,cpunew, cpuold, icode`
`49`		`- common /wedge / is_wedge_benchmark`
	`52`	`+c`
	`53`	`+c parameter (ireg = 0)`