Searched refs:LUSPEC (Results 1 – 2 of 2) sorted by relevance
| /dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/ |
| H A D | cc_lanczos_lrextras.F | 56 INTEGER LUSPEC local
80 LUSPEC=-1
81 CALL GPOPEN(LUSPEC,FNSPECTRUM,'NEW',' ','FORMATTED',
104 WRITE (LUSPEC,*) " FOR OPERATOR LABEL = ", LABEL
105 WRITE (LUSPEC,'(1X,A27,F12.8,A3,I10)')
107 WRITE(LUSPEC,*) " Frequency (eV) & Real (au)& Imaginary(au)",
109 WRITE(LUSPEC,'(X,"---------------------------")')
231 WRITE (LUSPEC,'(6F16.8)')
244 WRITE(LUSPEC,'(X,"---------------------------")')
247 CALL GPCLOSE(LUSPEC,'KEEP')
|
| /dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/test/trueresult/ |
| H A D | cc_rsp_lanczos_alpha.ref | 3756 --- remaining values on LUSPEC file ---
|