Clean some source code.

cmsi · Dec 29, 2020 · 638c7a3 · 638c7a3
1 parent b82f7e6
commit 638c7a3
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 9 deletions.
diff --git a/src/int1.F90 b/src/int1.F90
@@ -582,10 +582,10 @@ subroutine ghquadd(xyzint,expgh,xyzpijk,iang,jang,kang)
 !end
 
 
-!-----------------------------------------------------------------
+!----------------------------------------------------------------
  subroutine int1cmd(cint,exij,coij,coordij,coord,znuc,natom, &
 & nprimij,nangij,nbfij,len1,mxprsh,threshex)
-!-----------------------------------------------------------------
+!----------------------------------------------------------------
 !
 ! Driver of 1-electron Coulomb integrals (j|Z/r|i) using McMurchie-Davidson method
 !
@@ -2150,9 +2150,10 @@ subroutine intdipole(dipint,exij,coij,coordijk,nprimij,nangij,nbfij,len1,mxprsh,
 end
 
 
-!-------------------------------------------------------------------------------------------
- subroutine calcmatoctupole(dipmat,quadpmat,octpmat,work,dipcenter,nproc,myrank,mpi_comm,datajob,datamol,databasis)
-!-------------------------------------------------------------------------------------------
+!---------------------------------------------------------------------------------------------
+ subroutine calcmatoctupole(dipmat,quadpmat,octpmat,work,dipcenter,nproc,myrank,mpi_comm, &
+& datajob,datamol,databasis)
+!---------------------------------------------------------------------------------------------
 !
 ! Driver of dipole, quadrupole, and octupole moment matrix calculation
 !

diff --git a/src/machine.F90 b/src/machine.F90
@@ -171,9 +171,9 @@ subroutine opencheckfile(datajob,datacomp)
 end
 
 
-!--------------------------------------------
+!--------------------------------------
  subroutine closecheckfile(datacomp)
-!--------------------------------------------
+!--------------------------------------
 !
 ! Close checkpoint file
 !

diff --git a/src/scf.F90 b/src/scf.F90
@@ -12,10 +12,10 @@
 ! See the License for the specific language governing permissions and
 ! limitations under the License.
 !
-!------------------------------------------------------------------
+!-----------------------------------------------------------------------
  subroutine calcrhf(h1mtrx,cmo,fock,ortho,overlap,dmtrx,xint,eigen, &
 & datajob,datamol,databasis,datacomp)
-!------------------------------------------------------------------
+!-----------------------------------------------------------------------
 !
 ! Driver of restricted Hartree-Fock calculation
 !