Lines Matching refs:lu
180 integer(ip) :: lu, site local
197 call openfile('pelib_nuclear_potential.bin', lu, 'old', 'unformatted')
198 rewind(lu)
199 read(lu) Vnucs
200 close(lu)
225 call openfile('pelib_nuclear_potential.bin', lu, 'new', 'unformatted')
226 rewind(lu)
227 write(lu) Vnucs
228 close(lu)
253 integer(ip) :: lu, site local
270 call openfile('pelib_nuclear_field.bin', lu, 'old', 'unformatted')
271 rewind(lu)
272 read(lu) Fnucs
273 close(lu)
316 call openfile('pelib_nuclear_field.bin', lu, 'unknown', 'unformatted')
317 rewind(lu)
318 write(lu) Fnucs
319 close(lu)
395 integer(ip) :: lu local
412 call openfile('pelib_multipole_potential.bin', lu, 'old', 'unformatted')
413 rewind(lu)
414 read(lu) Vmuls
415 close(lu)
466 call openfile('pelib_multipole_potential.bin', lu, 'new', 'unformatted')
467 rewind(lu)
468 write(lu) Vmuls
469 close(lu)
493 integer(ip) :: lu local
510 call openfile('pelib_multipole_field.bin', lu, 'old', 'unformatted')
511 rewind(lu)
512 read(lu) Fmuls
513 close(lu)
615 call openfile('pelib_multipole_field.bin', lu, 'unknown', 'unformatted')
616 rewind(lu)
617 write(lu) Fmuls
618 close(lu)