代码搜索: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