change character length the same as other routines in GRASP2018

compas · Nov 4, 2024 · 5f0a443 · 5f0a443
1 parent 8f6c08d
commit 5f0a443
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/src/tool/rmixaccumulate.f90 b/src/tool/rmixaccumulate.f90
@@ -3,22 +3,23 @@ program rmixaccumulate
   implicit none
   integer :: i,ii,j,jj,k,kk,l,ios,err
   integer :: nelec, ncftot, nw, nvectot, nvecsize, nblock
-  integer :: nb, nevblk(200), iatjp, iaspa
+  integer :: nb, nevblk(200), iatjp, iaspa
   integer :: ivec
-  integer :: nrelorb, indexans, co(200)
+  integer :: nrelorb, indexans, co(200)
   integer, allocatable :: checkcsf(:,:), ind(:,:), ind2(:,:), ncfblk(:)
   integer, allocatable :: ncfblockout(:)
 
   double precision :: eav,eval
   double precision :: dc2evec, totc2evecblk, c2evecblklim
   double precision, allocatable :: evec(:,:,:),c2evec(:,:)
 
-  character(len=200) :: state, file1, file2
+  character(len=200) :: state, file1, file2
   character(len=600) :: header(5), string
-  character(len=5) :: relorbitals(200)
+  character(len=5) :: relorbitals(200)
   character(len=6) :: G92MIX
   character(len=1) :: ciflag,sortflag
-  character(len=200), allocatable  :: conf(:,:), coupling(:,:), spin(:,:)
+!  character(len=200), allocatable  :: conf(:,:), coupling(:,:), spin(:,:)
+  character(len=256), allocatable  :: conf(:,:), coupling(:,:), spin(:,:)
   write(*,*) '***************************************************************************'
   write(*,*) 'Welcome to program rmixaccumulate'
   write(*,*)