Merge pull request #14 from akasharora123/master

Anderson-Mixing Variable Cell Implemented
dmorse · Jun 3, 2018 · 1c99e7c · 1c99e7c
2 parents d560150 + bbe24af
commit 1c99e7c
Show file tree

Hide file tree

Showing 2 changed files with 296 additions and 338 deletions.
diff --git a/src/io/io_mod.f b/src/io/io_mod.f
@@ -356,15 +356,15 @@ module io_mod
  character(1) :: default_mat_sym = 'N' ! normal (full matrix)
 
  ! Integer field widths for output of comments and data:
- integer :: com_width = 20 ! comment field width
+ integer :: com_width = 40 ! comment field width
  integer :: data_width = 20 ! data field width (total)
  integer :: frac_width = 12 ! # digits after decimal
 
  ! Choice of format descriptor (E or F) for real numbers
  character(2) :: fmt_ef = 'ES' ! must = F, E, or ES
 
  ! Output format strings for scalar variables:
- character(3) :: fmt_c = 'A20' ! comment format
+ character(3) :: fmt_c = 'A40' ! comment format
  character(3) :: fmt_i = 'I20' ! integer format
  character(7) :: fmt_r = 'ES20.10' ! real format
  character(3) :: fmt_l = 'L20' ! logical format