From dc8da7d1923e9a2f0a1315e9aaa1e11826fed454 Mon Sep 17 00:00:00 2001
From: "Igor S. Gerasimov" <>
Date: Thu, 12 May 2022 11:59:21 +0900
Subject: [PATCH] Fix compilation issues for gfortran

---
 fileIO.f90 | 2 +-
 util.f90   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/fileIO.f90 b/fileIO.f90
index e8e4369..4da1655 100644
--- a/fileIO.f90
+++ b/fileIO.f90
@@ -6741,7 +6741,7 @@ real*8 :: efieldvec(3)=0
 real*8 :: frag1chg,frag2chg
 integer :: frag1multi,frag2multi,totalmulti
 integer :: iprestype=1,ioutSbas=0
-real*8 :: Piso=1.01325D0,Ptens(3,3)=(/ 1.01325D0,0D0,0D0, 0D0,1.01325D0,0D0, 0D0,0D0,1.01325D0 /)
+real*8 :: Piso=1.01325D0,Ptens(3,3)=reshape( [1.01325D0,0D0,0D0, 0D0,1.01325D0,0D0, 0D0,0D0,1.01325D0], shape=shape(Ptens))
 
 !Status information of current system. ",save" is used so that for the same system we can enter this interface multiple times to generate various input files
 integer,save :: netchg,multispin
diff --git a/util.f90 b/util.f90
index cabffc6..63c9a33 100644
--- a/util.f90
+++ b/util.f90
@@ -2577,7 +2577,7 @@ if (itmp==4) then
 	c80tmp(79:79)='/'
 	itmp=0
 end if
-write(*,"(2a\)") trim(c80tmp),char(13)
+write(*,"(2a$)") trim(c80tmp),char(13)
 if (inow>=nall) write(*,*)
 end subroutine
 
-- 
2.25.1