代码搜索:implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/376037/9335331
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/376037/9335474
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/376037/9335775
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/376037/9335854
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/376037/9335856
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/360543/10088623
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/273536/10911937
c command.c
/*
* Generated by asn1c-0.9.16 (http://lionet.info/asn1c)
* From ASN.1 module "MEDIA-GATEWAY-CONTROL"
* found in "h248_2.asn"
*/
#include
#include "Command.h"
static asn_TYPE_
www.eeworm.com/read/273536/10912103
c auditreply.c
/*
* Generated by asn1c-0.9.16 (http://lionet.info/asn1c)
* From ASN.1 module "MEDIA-GATEWAY-CONTROL"
* found in "h248_2.asn"
*/
#include
#include "AuditReply.h"
static asn_TY
www.eeworm.com/read/273536/10912148
c auditreturnparameter.c
/*
* Generated by asn1c-0.9.16 (http://lionet.info/asn1c)
* From ASN.1 module "MEDIA-GATEWAY-CONTROL"
* found in "h248_2.asn"
*/
#include
#include "AuditReturnParameter.h"
sta
www.eeworm.com/read/273536/10912207
c mid.c
/*
* Generated by asn1c-0.9.16 (http://lionet.info/asn1c)
* From ASN.1 module "MEDIA-GATEWAY-CONTROL"
* found in "h248_2.asn"
*/
#include
#include "MId.h"
static int
memb_mtpA