代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/288222/4008767
f svupdn.f
subroutine svupdn(s,haa)
implicit none
complex*16 s(4), haa(4,4)
complex*16 t(4), tmp
integer i, j
do 100 i=1,4
tmp = dcmplx(0.0d+00,0.0d+00)
do 101 j=1,4
tmp = tmp + haa(i,j)*s(j)
101
www.eeworm.com/read/288222/4008768
f hskl.f
subroutine hskl(cossh,rsinsh,sinshr,TL,iwat,hl)
implicit none
complex*16 cossh, rsinsh, sinshr
real TL
integer iwat
complex*16 hl(2,2)
if(iwat.eq.0)then
hl(1,1) = cossh
hl(2,1) = TL*rsinsh
www.eeworm.com/read/283121/4085885
f flush.f
subroutine flush (un)
* empties buffers for file unit 'un'.
* it works only for sequential files which have a name.
* this routine is AIX specific. the call should be
* compatible with DECfortra
www.eeworm.com/read/283121/4085886
f dateclock.f
* Note: this file should NOT be compiled with -qextname
* (otherwise it will not link with system's routines).
* If want to link it with other Fortran modules compiled
* with -qextname, redefine NDAT
www.eeworm.com/read/283121/4085887
f second.f
DOUBLE PRECISION FUNCTION SECOND()
******** RETURNS THE ELAPSED CPU TIME, IN SECONDS.
******** THIS ROUTINE IS OPERATING SYSTEM-DEPENDENT.
* AIX VERSION
SECOND = 0.01D0*MCLOCK()
www.eeworm.com/read/283121/4085894
f pfuimap.f
subroutine pfuimap(ntab, atumin, atumax, datui, tu, ipow, oner,
$ ntab2,atumin2,atumax2,datui2,tu2,icode)
implicit none
* ARGUMENTS
integer ntab,ntab2,ipow,icode
logic
www.eeworm.com/read/283121/4085895
f pfuiread.f
subroutine pfuiread(nunit,pfi,nfun,tutype,ielem,nderiv,ntabdim,
$ nhamtyp,descr,extra,ntab,atumin,atumax,
$ datui,tu,dtu,d2tu,icode)
* General ro
www.eeworm.com/read/283121/4085896
f pfuiman.f
program pfuiman
* manipulation of potentials stored in PFUI format.
* potentials may be converted from one type to another,
* and rescaled (if needed) during the process.
*
* FE 12-nov-1993, 1-dec-1
www.eeworm.com/read/283121/4085898
f pfuiwrit.f
subroutine pfuiwrit(nunit,pfi,nhamtyp,descr,tutype,ielem,extra,
$ nderiv,ntab,atumin,atumax,func,icode)
* FE 27-sep-93, 27-oct-93
implicit none
* PARAMETERS
* ma
www.eeworm.com/read/283121/4085899
f pfuiinfo.f
subroutine pfuiinfo(nunit,pfi,nfunmax,
$ nfun,nhamtyp,descr,tutype,ielem,extra,
$ nderiv,ntab,atumin,atumax,icode)
* FE 29-oct-93
implicit none