From ed977defac41705f2f545e82df4554dce69f86f1 Mon Sep 17 00:00:00 2001
From: Thomas APPLENCOURT <thomasa@eoslogin2.bullx>
Date: Wed, 22 Oct 2014 09:59:50 +0200
Subject: [PATCH] Write good format for the ezfio mo_classif

---
 src/Dets/save_for_qmcchem.irp.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Dets/save_for_qmcchem.irp.f b/src/Dets/save_for_qmcchem.irp.f
index 82915a62..e72a8d8f 100644
--- a/src/Dets/save_for_qmcchem.irp.f
+++ b/src/Dets/save_for_qmcchem.irp.f
@@ -35,7 +35,7 @@ subroutine save_dets_qmcchem
  call write_int(output_dets,N_det,'Determinants saved for QMC')
  deallocate(occ)
  open(unit=31,file=trim(ezfio_filename)//'/mo_basis/mo_classif')
- write(31,*) 1
+ write(31,'(I1)') 1
  write(31,*) mo_tot_num
  do i=1,mo_tot_num
    write(31,'(A)') 'a'