Fixed typo in singlepoint. (#406)

Author: pprcht

src/algos/numhess.f90

@@ -77,7 +77,7 @@ subroutine crest_numhess(env,tim)
 
   !>--- start with an initial single point
   write(stdout,'(a)') repeat(":",80)
-  write (stdout,'(1x,a)') 'Initial singlpoint calculation ...'
+  write (stdout,'(1x,a)') 'Initial singlepoint calculation ...'
   allocate(grad0(3,mol%nat),source=0.0_wp)
   allocate(energies0( calc%ncalculations ), source=0.0_wp)
 

src/algos/parallel.f90

@@ -78,7 +78,7 @@ end module parallel_interface
 subroutine crest_sploop(env,nat,nall,at,xyz,eread)
 !***************************************************************
 !* subroutine crest_sploop
-!* This subroutine performs concurrent singlpoint evaluations
+!* This subroutine performs concurrent singlepoint evaluations
 !* for the given ensemble. Input eread is overwritten
 !***************************************************************
   use crest_parameters,only:wp,stdout,sep

src/propcalc.f90

@@ -382,7 +382,7 @@ subroutine prop_OMP_loop(env,TMPCONF,jobcall,pop)
       & env%ensemblename)
     end if
 
-  case (998) !singlpoint (no reranking) + dipoles
+  case (998) !singlepoint (no reranking) + dipoles
     open (newunit=ich,file='crest_property.xyz')
     open (newunit=ich2,file='crest.dipoles')
     do i = 1,TMPCONF
@@ -407,7 +407,7 @@ subroutine prop_OMP_loop(env,TMPCONF,jobcall,pop)
     write (*,*)
     write (*,*) 'Dipole moments for each conformer (x,y,z,total) written to crest.dipoles'
 
-  case (999) !singlpoint reranking
+  case (999) !singlepoint reranking
     open (newunit=ich,file='crest_property.xyz')
     do i = 1,TMPCONF
       write (tmppath,'(a,i0,a,a)') 'TMPCONF',i,'/','xtb.out'