代码搜索:implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/476406/6760784
f90 ex0702.f90
program ex0702
implicit none
integer :: student1, student2, student3, student4, student5
integer :: i
write(*,*) "Number 1"
read(*,*) student1
write(*,*) "Number 2"
read(*,*) stud
www.eeworm.com/read/476406/6760960
f90 ex1203f.f90
module typedef
implicit none
type person
sequence ! 强迫自定义类型中的变量会依顺序在内存中排列
integer age
real weight, height
end type
end module
module cprog
interface
subroutine S
www.eeworm.com/read/409260/11338552
f90 ex0702.f90
program ex0702
implicit none
integer :: student1, student2, student3, student4, student5
integer :: i
write(*,*) "Number 1"
read(*,*) student1
write(*,*) "Number 2"
read(*,*) stud
www.eeworm.com/read/409260/11338907
f90 ex1203f.f90
module typedef
implicit none
type person
sequence ! 强迫自定义类型中的变量会依顺序在内存中排列
integer age
real weight, height
end type
end module
module cprog
interface
subroutine S
www.eeworm.com/read/408273/11400520
f90 calreccatimat.f90
!根据边界条件构造Reccati传递矩阵数组
SUBROUTINE calReccatiMat(trialFreq)
USE nrtype; USE global
IMPLICIT NONE
REAL(DP) trialFreq
INTEGER i,j,k,m
REAL(DP) :: mass,len,yModu,momIner,cArea
REAL(DP) :: f
www.eeworm.com/read/258562/11854078
f90 ex0702.f90
program ex0702
implicit none
integer :: student1, student2, student3, student4, student5
integer :: i
write(*,*) "Number 1"
read(*,*) student1
write(*,*) "Number 2"
read(*,*) stud
www.eeworm.com/read/258562/11854644
f90 ex1203f.f90
module typedef
implicit none
type person
sequence ! 强迫自定义类型中的变量会依顺序在内存中排列
integer age
real weight, height
end type
end module
module cprog
interface
subroutine S
www.eeworm.com/read/338854/12277035
for qiuni.for
SUBROUTINE inv(A,N)
implicit none
! 矩阵求逆
integer :: N, k, i, j
real*8 A(N,N) !存放矩阵A
INTEGER :: IP(N) !记录主列号
REAL*8 :: P, S !工作单元,放主元
www.eeworm.com/read/225922/14511057
f90 example2.f90
PROGRAM example2
! Code converted using TO_F90 by Alan Miller
! Date: 2001-06-09 Time: 23:45:36
USE Kernel_Regression
IMPLICIT NONE
INTEGER, PARAMETER :: n = 250, m = 300, ihom = 0, nue
www.eeworm.com/read/225922/14511068
f90 example3.f90
PROGRAM example3
! Code converted using TO_F90 by Alan Miller
! Date: 2001-06-09 Time: 23:45:41
USE Kernel_Regression
IMPLICIT NONE
INTEGER, PARAMETER :: n = 250, m = 300, ihom = 1, nue