代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/492438/6423117
f90 dynamic.f90
SUBROUTINE Initial
!........
! 模块功能
! 读入初时条件(初时位移和初时速度).
!........
USE CtrlData
USE GlobData
USE ElmtData
IMPLICIT DOUBLE PRECISION( a-h
www.eeworm.com/read/492438/6423186
f90 mainstrs.f90
SUBROUTINE MainStrs( vstrs, vmain, itype )
!........
! 模块功能
! 计算主应力
!........
IMPLICIT DOUBLE PRECISION( a-h, o-z )
DIMENSION vstrs( 6 ), vmain( 3 ), vwor
www.eeworm.com/read/486304/6539166
f90 fourier_setup.f90
subroutine Fourier_Setup( Kmax, Alpha, CONST, KX, KY, KZ, Nkvec )
implicit none
! This routine calculates the constant part of the Fourier energy of the ES.
! Kmax is the number of terms to
www.eeworm.com/read/486304/6539174
f90 ionmolecule.f90
subroutine IonMolecule( Nc, Xc, Yc, Zc, TYPEc, DAMPc, &
Np, Xp, Yp, Zp, TYPEp, DAMPp, &
Nham, Niongrs, CHARGE, BoxSize, ENERGY )
implicit none
! This routine calculates the coulo
www.eeworm.com/read/486304/6539177
f90 erfc.f90
real function erfc(x)
! # MS Fortran
! Complementary error function from Numerical Recipes.
implicit none
real :: x
real :: t,z
z = abs(x)
t =
www.eeworm.com/read/486304/6539187
f90 realmolecule.f90
subroutine RealMolecule( Nc, Xc, Yc, Zc, TYPEc, DAMPc, &
Np, Xp, Yp, Zp, TYPEp, DAMPp, &
Nham, Niongrs, CHARGE, BoxSize, Alpha, ENERGY )
implicit none
! This routine calculates
www.eeworm.com/read/476406/6760856
f90 zanly.f90
program main
use IMSL
implicit none
integer, parameter :: N = 3
integer :: INFO(N)
integer, parameter :: ITMAX = 100
integer, parameter :: NKNOWN = 0
integer, parameter :: NNEW =
www.eeworm.com/read/476406/6760863
f90 fnlsq.f90
program main
use IMSL
implicit none
integer, parameter :: INTCEP = 1
integer, parameter :: NBASIS = 2
integer, parameter :: NDATA = 90
integer, parameter :: IWT = 0
real, external
www.eeworm.com/read/476406/6760927
f90 ex0909.f90
program ex0909
implicit none
integer, parameter :: inputfileid = 10, outputfileid = 11
integer, parameter :: maxbuffer = 200
character(len=80) :: inputfile, outputfile
character(len=ma
www.eeworm.com/read/476406/6761024
f90 ex0505.f90
program ex0505
implicit none
integer score
character grade
write(*,*) "Score:"
read(*,*) score
if ( score>=90 .and. score=80 .and.