H A D | fd.f90 | 44 integer :: nrx1,nrx2,nrx3,nr1,nr2,nr3,nb,nax,natx,inn variable 76 …NAMELIST /inputfd/ fd_prefix,nrx1,nrx2,nrx3,de,fd_outfile,fd_outdir,fd_outfile_dir, disp_only, ver… local 82 nrx1=1 116 natx=nat*nrx1*nrx2*nrx3 282 do nr1=1,nrx1 300 at(:,1)=nrx1*at(:,1) 458 WRITE(2,*) (nrx1*r1(j), j=1,3)
|