代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/183353/9167250
f90 2d_8nodes.f90
!=============================================================
! 平面8节点等参元程序
! 清华大学土木工程系：陆新征
!============================================================
module Elem_Rect8 ! 八节点等参元
implicit no
www.eeworm.com/read/376037/9335324
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/376037/9335634
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/360544/10088604
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/461356/7228668
f90 dsmc_airflowinmicro.f90
program main
implicit real(kind=8)(a-h,o-z)
parameter (no_cellx=10,no_celly=5,no_cell=50)
parameter (no_molecule_each_cell=30)
parameter (no_molecule=1500)
parameter (nloop=10)
common /cons/
www.eeworm.com/read/457035/7334822
f90 main.f90
module Euler
!!!!!!!!!!!!!!!!!!!!!module中的变量及常量4!!!!!!!!!!!!!!!!!!!!!!!!
implicit none
!private x,y,U,F,G,JJ,R
integer,parameter::M=100 !x方向等分数
integer,parameter::N=60 !y方向等分数
integer
www.eeworm.com/read/308778/13692227
for a15.for
SUBROUTINE ELT3D3
C
C
C
C
C
IMPLICIT DOUBLE PRECISION ( A-H,O-Z )
C***END:DPR***
COMMON /EL/ IND,ICOUNT,NPAR(20),NUMEG,NEGL,NEGNL,IMASS,IDAMP,ISTAT
1 ,NDOFDM
www.eeworm.com/read/301055/13866980
for reserv.for
C*****
SUBROUTINE RESERV (A,AA,M,L,NF,KODST,NEQ,JCOL,K)
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
DIMENSION A(L),AA(L),M(NEQ)
C
IF (KODST.EQ.0) GO TO 10
C
CALL STORE
www.eeworm.com/read/131315/5935918
c malloc.c
/* $RCSfile: malloc.c,v $$Revision: 4.0.1.4 $$Date: 92/06/08 14:28:38 $
*
* $Log: malloc.c,v $
* Revision 4.0.1.4 92/06/08 14:28:38 lwall
* patch20: removed implicit int declarations on functio
www.eeworm.com/read/493481/6394014
f juliang.f
IMPLICIT NONE
INTEGER N, JS, IS
PARAMETER (n=6)
DIMENSION L(n,n), g(n), IS(N), JS(N), A(N)
REAL A, F, H
DOUBLE PRECISION l, G
CALL getmat1(l,n)
CALL brinv(l,n,h,