Modify charater length in visual files

cmsi · Aug 12, 2021 · 48bf30d · 48bf30d
1 parent 8b2c171
commit 48bf30d
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 8 deletions.
diff --git a/visual/cube-generator.F90 b/visual/cube-generator.F90
@@ -55,8 +55,8 @@ program cube_generator
  real(8) :: coord(3,mxatom), znuc(mxatom), charge, orbital(mxgridz)
  real(8) :: cutoff=20.0D+00
  real(8),allocatable :: cmoa(:,:), cmob(:,:), dmtrxa(:), dmtrxb(:)
- character(len=64) :: filecheck, filecube, viewtype, moarg
- character(len=16) :: checkversion, scftype, method, runtype
+ character(len=128) :: filecheck, filecube, viewtype, moarg
+ character(len=32) :: checkversion, scftype, method, runtype
 !
  call getarg(1,filecheck)
  call getarg(2,filecube)
@@ -256,8 +256,8 @@ subroutine low2up(line,ilen)
 !
  implicit none
  integer :: ilen, ii, inum
- character(len=64),intent(inout) :: line
- character(len=64) :: linecopy
+ character(len=128),intent(inout) :: line
+ character(len=128) :: linecopy
  character(len=26) :: upper='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
  character(len=26) :: lower='abcdefghijklmnopqrstuvwxyz'
 !

diff --git a/visual/vtk-generator.F90 b/visual/vtk-generator.F90
@@ -54,8 +54,8 @@ program vtk_generator
  real(8) :: xyzmax(3), xyzmin(3), xx, yy, zz
  real(8) :: coord(3,mxatom), charge, orbital
  real(8),allocatable :: cmoa(:,:), cmob(:,:), dmtrxa(:), dmtrxb(:)
- character(len=64) :: filecheck, filevtk, viewtype, moarg
- character(len=16) :: checkversion, scftype, method, runtype
+ character(len=128) :: filecheck, filevtk, viewtype, moarg
+ character(len=32) :: checkversion, scftype, method, runtype
 !
  call getarg(1,filecheck)
  call getarg(2,filevtk)
@@ -277,8 +277,8 @@ subroutine low2up(line,ilen)
 !
  implicit none
  integer :: ilen, ii, inum
- character(len=64),intent(inout) :: line
- character(len=64) :: linecopy
+ character(len=128),intent(inout) :: line
+ character(len=128) :: linecopy
  character(len=26) :: upper='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
  character(len=26) :: lower='abcdefghijklmnopqrstuvwxyz'
 !