Small changes to output

diagonalization/chani.F90

@@ -383,11 +383,11 @@ endif
        ENDIF
        IF (MOD(ierr/8,2).NE.0) THEN
           WRITE(6,*) myid,' PDSTEBZ failed to compute eigenvalues'
-          !CALL CPP_flush(6)
+          CALL judft_error("SCALAPACK failed to solve eigenvalue problem",calledby="chani.F90")
        ENDIF
        IF (MOD(ierr/16,2).NE.0) THEN
           WRITE(6,*) myid,' B was not positive definite, Cholesky failed at',ifail(1)
-          !CALL CPP_flush(6)
+          CALL judft_error("SCALAPACK failed: B was not positive definite",calledby="chani.F90")
        ENDIF
     ENDIF
     IF (num2 < num1) THEN

eigen/lodpot.f90

@@ -60,7 +60,7 @@ CONTAINS
        e=1.0
        ch(0:9) = (/'s','p','d','f','g','h','i','j','k','l'/)
        DO jsp = 1,input%jspins
-          IF( input%jspins .GT. 1 ) WRITE(6,'(A,i3)') ' Spin: ',jsp
+          !IF( input%jspins .GT. 1 ) WRITE(6,'(A,i3)') ' Spin: ',jsp
 !$OMP PARALLEL DO DEFAULT(none) &
 !$OMP SHARED(atoms,enpara,jsp,l_done,mpi,vr,c,el,ch,lo_done,ello) &
 !$OMP PRIVATE(n,nqn,nqn_lo,d,rn,msh,f,vrd,j,t1,t2,rr,l,node,nodeu,e,start,us,dus,e_lo,e_up) &

io/eig66_io.F90

@@ -66,7 +66,7 @@ CONTAINS
 
     id=eig66_data_newid(mode)
 
-    PRINT *,"open_eig:",id,mode
+    !PRINT *,"open_eig:",id,mode
 
     CALL timestart("Open file/memory for IO of eig66")
     SELECT CASE (eig66_data_mode(id))
@@ -94,7 +94,7 @@ CONTAINS
     CHARACTER(LEN=*),INTENT(IN),OPTIONAL :: filename
     INTEGER  :: mode
     mode=eig66_data_mode(id)
-    PRINT*,"close_eig:",id,mode
+    !PRINT*,"close_eig:",id,mode
     SELECT CASE (mode)
     CASE (DA_mode)
        CALL close_eig_DA(id,filename)

mpi/setupMPI.F90

@@ -140,7 +140,7 @@ CONTAINS
     CALL MPI_COMM_GROUP (mpi%MPI_COMM,WORLD_GROUP,ierr)
     CALL MPI_GROUP_INCL (WORLD_GROUP,mpi%n_size,i_mygroup,SUB_GROUP,ierr)
     CALL MPI_COMM_CREATE (mpi%MPI_COMM,SUB_GROUP,mpi%SUB_COMM,ierr)
-    write (*,"(a,i0,100i4)") "MPI:",mpi%sub_comm,mpi%irank,mpi%n_groups,mpi%n_size,n,i_mygroup
+    !write (*,"(a,i0,100i4)") "MPI:",mpi%sub_comm,mpi%irank,mpi%n_groups,mpi%n_size,n,i_mygroup
 
     CALL MPI_COMM_RANK (mpi%SUB_COMM,mpi%n_rank,ierr)
 #endif