代码搜索：F

SUBROUTINE DSPMV( UPLO, N, ALPHA, A, X, INCX, BETA, Y, INCY ) * * -- Automatically Tuned Linear Algebra Software (ATLAS) * (C) Copyright 2000 All Rights Reserved * * -- ATLAS routine -- F7

COMPLEX*16 FUNCTION ZDOTC( N, X, INCX, Y, INCY ) * * -- Automatically Tuned Linear Algebra Software (ATLAS) * (C) Copyright 2000 All Rights Reserved * * -- ATLAS routine -- F77 Int

subroutine dummies entry dskms8 call cancel(100,'do not call me') return entry dskmi8 call cancel(100,'do not call me') return entry dskmo8 call cancel(100,'do not cal

cccccc polynomial interpolation cccc use 1/dis as weight subroutine plint(x,y,f,m,n,xout,yout,fout,work,dis,indx) integer m,n real x(n),y(n),f(m,n),fout(m),xout,yout real work(n) real dis integ

SUBROUTINE QCKSRT(N,ARR) PARAMETER (M=7,NSTACK=50,FM=7875.,FA=211.,FC=1663. * ,FMI=1.2698413E-4) DIMENSION ARR(N),ISTACK(NSTACK) JSTACK=0 L=1 IR=N FX=

subroutine <mark>f</mark>higint(<mark>f</mark>0,d<mark>f</mark>,n<mark>f</mark>,<mark>f</mark>taper,dt,i<mark>f</mark>cut,ltaper, 2 wsave,nsave,n<mark>f</mark><mark>f</mark>t) real wsave(nsave) integer i<mark>f</mark>cut(n<mark>f</mark>),ltaper(n<mark>f</mark>),n<mark>f</mark> real <mark>f</mark>taper,<mark>f</mark>0,d<mark>f</mark>,dt real s<mark>f</mark><mark>f</mark>t integer nsave ...

subroutine vr22vi2(vr2,vi2,ntau) real vr2(ntau),vi2(ntau) integer ntau,i vi2(1) = vr2(1) do i=2,ntau vi2(i) = i*vr2(i)-(i-1)*vr2(i-1) end do return end subroutine vi22vq4(vi2,vq4,ntau)

ccccc dip scan routine subroutine sstack(data,pxo,pyo,stack,work, 1 iyy,ixx,jy,nycore,nx, 2 d1,o1,n1, 3 dt,t0,nt,

ccc vector smoothing subroutine vsmth(data,n1,n2,lsm,work) real data(n1,n2),work(n1,n2) integer n1,n2 real f1(4096), f2(4096) nf1 = lsm nf2 = lsm if(nf1.gt.4096) call cancel("nf1 too large

subroutine t2z( real t(n1),z(n1) real zo(nz),to(nz) z(1) = t(1)*v(1)*0.0005; do it=2,n1 z(it) = z(it-1) + d1*v(it)*0.0005; end do odt = 1./dt call lin1d(z,t,n1,zo,to,nz,indx,d) do i