代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/258562/11854405
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/258562/11854849
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/258562/11854976
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/258562/11854980
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/132315/14099636
java listtest.java
import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;
public class ListTest extends MIDlet implements CommandListener{
private List menu;
private List implicit_list;
priva
www.eeworm.com/read/221870/14716559
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/221868/14716920
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/221868/14717002
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/221868/14717004
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/210986/15189117
java listtest.java
import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;
public class ListTest extends MIDlet implements CommandListener{
private List menu;
private List implicit_list;
priva