代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/393688/2472162
f printstats.f
subroutine printstats (twocases, name, numlev, nlev, &
nlon, nlat, wsum)
use precision
use stats
implicit none
!
! Arguments
!
logical twocases
character*(*), intent(
www.eeworm.com/read/393688/2472163
f nldat.f
module nldat
integer nsteps, nstepe
integer iprs, ipre, kprs, kpre, latprs, latpre
logical diffonly, matchts
end module nldat
www.eeworm.com/read/393688/2472164
f precision.f
module precision
integer, parameter :: r8 = selected_real_kind(12)
end module precision
www.eeworm.com/read/393688/2472165
f lenchr.f
integer function lenchr(chrstg)
implicit none
!------------------------------Arguments--------------------------------
!
! Input arguments
!
character*(*) chrstg ! Input character string
!
www.eeworm.com/read/393688/2472166
f header.f
module header
use precision
!
! Netcdf id
!
integer, dimension(2) :: ncid = -1
!
! Dimensions
!
integer, dimension(2) :: londimid = -1
integer, dimension(2) :: latdimid = -1
integer, dimensi
www.eeworm.com/read/393688/2472167
f cpr.f
subroutine cpr (nlon, nlat, nlev, numcases, lnorm, verbose)
!
! $Id: cpr.F,v 1.1.6.3 2002/04/24 03:24:53 erik Exp $
!
use precision
use header
use stats
use nldat
implicit none
include '
www.eeworm.com/read/393688/2472168
f ismax.f
integer function ismax(n,sx,incx)
real*8 sx(*)
real*8 max
integer imax
max = sx(1)
imax = 1
do i=1+incx,n,incx
if (max .lt. sx(i)) then
max = sx(i)
imax = i
endif
end
www.eeworm.com/read/393688/2472169
f prhddiff.f
subroutine prhddiff (nlev, nlat)
use precision
use header
implicit none
!
! Input arguments
!
integer, intent(in) :: nlev, nlat
!
! Local workspace
!
integer k, j, n
www.eeworm.com/read/393688/2472171
f initstats.f
subroutine initstats
use precision
use stats
implicit none
npos = 0
ndif = 0
difmx = 0.
rdifmx = 0.
xmx(1) = -9.d88
xmx(2) = -9.d88
xmn(1) = +9.d88
xmn(2) = +9.d88
rms = 0.
www.eeworm.com/read/393688/2472172
f cprtps.f
program cprnc
!
! $Id: cprtps.F,v 1.1.6.3 2002/04/24 03:24:53 erik Exp $
!
use header
use nldat
implicit none
include 'netcdf.inc'
!
! Local workspace
!
character*128 cvsid
charact