Searched refs:cthatse (Results 1 – 2 of 2) sorted by relevance
| /dports/science/atompaw/atompaw-4.1.1.0/src/ |
| H A D | atompaw_report.F90 | 717 real(8) :: sqr4pi, term,accum,occ,ctctse,cthatse,rr,eself local
1105 call coretailselfenergy(Grid,PAW,ctctse,cthatse)
1107 WRITE(ifatompaw,'(" CORETAILHATENERGY ",1pe25.17," END")') cthatse
|
| H A D | pseudo.F90 | 785 SUBROUTINE coretailselfenergy(Grid,PAW,ctctse,cthatse) argument
788 REAL(8), INTENT(OUT) :: ctctse,cthatse local
809 cthatse=integrator(Grid,d2(1:irc),1,PAW%irc_shap)
810 write(std_out,*) 'ctctse,cthatse = ', ctctse,cthatse
|