代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/393688/2472476
f prologue.f
!
! ProTeX sample FORTRAN source: Style 1
!
! NOTE: Styles 1 and 2 differ only on the order of the !DESCRIPTION
! keyword.
!
! Last update: 28Jun97 (ams)
!
! Use !ROUTINE for your usual
www.eeworm.com/read/393688/2472668
f stats.f
module stats
use precision
integer :: npos ! # of possible differences
integer :: ndif ! # of differences
real(r8) :: difmx ! max diff
real(r8) :: rdifmx ! maximum relative
www.eeworm.com/read/393688/2472669
f printstats.f
subroutine printstats (twocases, name, numlev, nlev, nlevp, &
nlon, nlat, wsum, totmass)
use precision
use stats
implicit none
!
! Arguments
!
logical twocases
charac
www.eeworm.com/read/393688/2472670
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/2472671
f precision.f
module precision
integer, parameter :: r8 = selected_real_kind(12)
end module precision
www.eeworm.com/read/393688/2472672
f lenchr.f
integer function lenchr(chrstg)
implicit none
!------------------------------Arguments--------------------------------
!
! Input arguments
!
character*(*) chrstg ! Input character string
!
www.eeworm.com/read/393688/2472673
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/2472674
f cpr.f
subroutine cpr (nlon, nlat, nlev, nlevp, numcases, lnorm, verbose)
!
! $Id: cpr.F,v 1.2.6.1 2002/05/13 17:59:24 erik Exp $
!
use precision
use header
use stats
use nldat
implicit none
inc
www.eeworm.com/read/393688/2472675
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/2472677
f prhddiff.f
subroutine prhddiff (nlev, nlevp, nlat)
use precision
use header
implicit none
!
! Input arguments
!
integer, intent(in) :: nlev, nlevp, nlat
!
! Local workspace
!
int