From 9e66226c654fc644c5dd2884f4bb848981e6cb22 Mon Sep 17 00:00:00 2001 From: ignis Date: Sat, 1 Feb 2020 11:45:46 +0900 Subject: [PATCH] added two input parameters nsp and nrxn --- code/m_parameters.f90 | 3 +++ code/sample/itape.py | 2 ++ 2 files changed, 5 insertions(+) mode change 100644 => 100755 code/sample/itape.py diff --git a/code/m_parameters.f90 b/code/m_parameters.f90 index 758e375..6383699 100644 --- a/code/m_parameters.f90 +++ b/code/m_parameters.f90 @@ -31,6 +31,7 @@ module m_parameters real :: pflame,pflold,oldu ! Solver Control + integer :: nsp, nrxn integer :: ncyc=0,int_pr real :: absolute_tolerence=1e-8 real :: dt,tf,t_now,t_uf,dt_uf @@ -109,6 +110,8 @@ contains CALL READ_PARAMETER (hrp) CALL READ_PARAMETER (le_a) CALL READ_PARAMETER (le_x) + CALL READ_PARAMETER (nsp) + CALL READ_PARAMETER (nrxn) ! READ(itape,*) cdum,table_size ! WRITE(otape,*) cdum,table_size diff --git a/code/sample/itape.py b/code/sample/itape.py old mode 100644 new mode 100755 index c611ed9..eb6d1b3 --- a/code/sample/itape.py +++ b/code/sample/itape.py @@ -37,6 +37,8 @@ beta1 5 hrp 0.75 le_a 1. le_x 0.20 +nsp 1 +nrxn 1 ''' ).split()