代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/476406/6761084
f90 ex0822.f90
program ex0822
implicit none
external sub1, sub2 ! 声明sub1跟sub2是子程序名称
call sub(sub1) ! 把子程序sub1当参数传出去
call sub(sub2) ! 把子程序sub1当参数传出去
stop
end program
subroutine sub(sub_na
www.eeworm.com/read/476406/6761085
f90 ex0811.f90
program ex0811
implicit none
integer :: a,b
common /group1/ a
common /group2/ b
a=1
b=2
call ShowGroup1()
call ShowGroup2()
stop
end
subroutine ShowGroup1()
implicit none
www.eeworm.com/read/409260/11338554
f90 sgldraw1.f90
module sgl_util
use sgl
implicit none
contains
subroutine Display()
write(*,*) "Update"
call sglClearBuffer() ! 清除画面
call sglColor3f(1.0,0,0) ! 使用红色
call sglRect(100,100,300,30
www.eeworm.com/read/409260/11338697
f90 ex1105.f90
module MA
implicit none
interface getx
module procedure getx1
module procedure getx2
end interface
contains
subroutine getx1(a,b)
real a,b
write(*,"('x=',F5.2)") -b/a
r
www.eeworm.com/read/409260/11339013
f90 ex0812.f90
program ex0812
implicit none
integer :: a,b
common a,b ! a,b放在不具名的全局变量空间中
integer :: c,d
common /group1/ c,d ! c,d放在group1的全局变量空间中
integer :: e,f
common /group2/ e,f ! e,f放
www.eeworm.com/read/409260/11339079
f90 ex0822.f90
program ex0822
implicit none
external sub1, sub2 ! 声明sub1跟sub2是子程序名称
call sub(sub1) ! 把子程序sub1当参数传出去
call sub(sub2) ! 把子程序sub1当参数传出去
stop
end program
subroutine sub(sub_na
www.eeworm.com/read/409260/11339080
f90 ex0811.f90
program ex0811
implicit none
integer :: a,b
common /group1/ a
common /group2/ b
a=1
b=2
call ShowGroup1()
call ShowGroup2()
stop
end
subroutine ShowGroup1()
implicit none
www.eeworm.com/read/407616/11413460
f90 e_625_02.f90
PROGRAM ADD_CHARACTER
IMPLICIT NONE
CHARACTER(LEN=10) :: A,B
INTEGER :: I,J
INTERFACE OPERATOR(+)
FUNCTION ADD(A,B) RESULT(ADD_RESULT)
IMPLICIT NONE
CHARACTER(LEN=*),INTENT(IN) :: A,B
C
www.eeworm.com/read/407116/11429199
f90 e_625_02.f90
PROGRAM ADD_CHARACTER
IMPLICIT NONE
CHARACTER(LEN=10) :: A,B
INTEGER :: I,J
INTERFACE OPERATOR(+)
FUNCTION ADD(A,B) RESULT(ADD_RESULT)
IMPLICIT NONE
CHARACTER(LEN=*),INTENT(IN) :: A,B
C
www.eeworm.com/read/258562/11854082
f90 sgldraw1.f90
module sgl_util
use sgl
implicit none
contains
subroutine Display()
write(*,*) "Update"
call sglClearBuffer() ! 清除画面
call sglColor3f(1.0,0,0) ! 使用红色
call sglRect(100,100,300,30