=== modified file 'Src/m_ts_options.F90' --- Src/m_ts_options.F90 2013-09-19 09:36:27 +0000 +++ Src/m_ts_options.F90 2013-10-29 22:05:51 +0000 @@ -419,6 +419,7 @@ if ( TSmode ) then ! Check existance for left Electrode.TSHS inquire(file=TRIM(HSFile),exist=exist) + exist = exist .or. .not. IONode if ( .not. exist ) then call die(trim(LR)//" electrode file does not exist. & &Please create electrode '"//trim(HSFile)//"' first.") === modified file 'Util/TBTrans_rep/m_tbt_options.F90' --- Util/TBTrans_rep/m_tbt_options.F90 2012-12-04 10:24:25 +0000 +++ Util/TBTrans_rep/m_tbt_options.F90 2013-10-29 22:05:35 +0000 @@ -177,6 +177,7 @@ call fdf_global_get(HSFile,'TS.TBT.HSFile',chars) ! Check for file existance inquire(file=TRIM(HSFile),exist=exist) + exist = exist .or. .not. IONode if ( .not. exist ) then call die("Scattering region does not exist. & &Please create scattering region file '"//TRIM(HSFile)//"' first.") @@ -297,6 +298,7 @@ logical :: exist ! Check existance for left Electrode.TSHS inquire(file=TRIM(HSFile),exist=exist) + exist = exist .or. .not. IONode if ( .not. exist ) then call die(trim(LR)//" electrode file does not exist. & &Please create electrode '"//trim(HSFile)//"' first.")