← Back to branch summary

~stephan-mohr-n/siesta/CheSS-branch

« back to all changes in this revision

Viewing changes to Src/read_options.F90

  • Committer: Stephan Mohr
  • Date: 2017-01-30 11:59:38 UTC
  • Revision ID: stephan.mohr@bsc.es-20170130115938-qrvk7f1w37k6hf14
some minor modifications according to Nick's suggestions

Show diffs side-by-side

added added

removed removed

Lines of Context:
Src/read_options.F90
745
745
 
746
746
#ifdef SIESTA__CHESS
747
747
  ! Buffer for the density kernel within the CheSS calculation
748
 
  chess_value = fdf_get('CheSSBufferKernel', 4.0_dp)
 
748
  chess_value = fdf_get('CheSS.Buffer.Kernel', 4.0_dp)
749
749
  call set_CheSS_parameter('chess_buffer_kernel', chess_value)
750
750
  if (ionode)  write(6,7), &
751
 
      'redata: CheSSBufferKernel   = ',chess_value
 
751
      'redata: CheSS.Buffer.Kernel   = ',chess_value
752
752
  !if (cml_p) call cmlAddParameter(xf=mainXML, name='CheSSBufferKernel', &
753
753
  !                 value=chess_value, dictref='siesta:CheSSBufferKernel')
754
754
 
755
755
  ! Buffer for the matrix vector multiplication within the CheSS calculation
756
 
  chess_value = fdf_get('CheSSBufferMult', 6.0_dp)
 
756
  chess_value = fdf_get('CheSS.Buffer.Mult', 6.0_dp)
757
757
  call set_CheSS_parameter('chess_buffer_mult', chess_value)
758
758
  if (ionode)  write(6,7), &
759
 
      'redata: CheSSBufferMult     = ',chess_value
 
759
      'redata: CheSS.Buffer.Mult     = ',chess_value
760
760
 
761
761
  ! Parameters for the penalty function used to determine the eigenvalue bounds
762
762
  chess_value = fdf_get('CheSSBetax', -1000.0_dp)
763
763
  call set_CheSS_parameter('chess_betax', chess_value)
764
764
  if (ionode)  write(6,7), &
765
 
      'redata: CheSSBetax          = ',chess_value
 
765
      'redata: CheSS.Betax          = ',chess_value
766
766
  !if (cml_p) call cmlAddParameter(xf=mainXML, name='CheSSBufferMult', &
767
767
  !                 value=chess_value, dictref='siesta:CheSSBufferMult')
768
768
#endif