| 1 | c
|
|---|
| 2 | c Variables for the method of characteristics
|
|---|
| 3 | c
|
|---|
| 4 | integer cv_lysize
|
|---|
| 5 | parameter (cv_lysize=lcvx1*lcvy1*lcvz1*lcvelt*ldimt)
|
|---|
| 6 |
|
|---|
| 7 | integer cv_nfld, cv_iatol
|
|---|
| 8 | integer cv_maxl, cv_itask, cv_ipretype
|
|---|
| 9 | common /icvode/ cv_nfld, cv_iatol,
|
|---|
| 10 | & cv_maxl, cv_itask, cv_ipretype
|
|---|
| 11 |
|
|---|
| 12 | integer*8 cv_nlocal, cv_nglobal
|
|---|
| 13 | common /ilcvode/ cv_nlocal, cv_nglobal
|
|---|
| 14 |
|
|---|
| 15 | logical ifcvodeinit, ifdqj, ifcvfun
|
|---|
| 16 | common /lcvode/ ifcvodeinit, ifdqj, ifcvfun
|
|---|
| 17 |
|
|---|
| 18 | real cv_atol(cv_lysize)
|
|---|
| 19 | real cv_dtlag(3),cv_abmsh(3),cv_ab(3),cv_bd(4)
|
|---|
| 20 | real cv_rtol, cv_sigs, cv_delt
|
|---|
| 21 | real cv_time,cv_timel,cv_dtnek,cv_dtmax
|
|---|
| 22 | common /rcvode/ cv_atol, cv_dtlag, cv_abmsh, cv_ab, cv_bd,
|
|---|
| 23 | & cv_rtol, cv_sigs, cv_delt,
|
|---|
| 24 | & cv_time, cv_timel, cv_dtnek, cv_dtmax
|
|---|
| 25 |
|
|---|
| 26 | real nfe_avg, nli_nni_avg
|
|---|
| 27 | common /cvrstat/ nfe_avg,nli_nni_avg
|
|---|
| 28 | integer*8 cv_istep, iout_save(21)
|
|---|
| 29 | common /cvistat/ cv_istep, iout_save
|
|---|
| 30 |
|
|---|
| 31 | integer igstype,itmeth
|
|---|
| 32 | parameter(
|
|---|
| 33 | & itmeth = 2, ! newton iter
|
|---|
| 34 | & igstype = 1 ! gs 1: modified 2: classical
|
|---|
| 35 | & )
|
|---|
