代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/258562/11854609
f90 forlib.f90
real function circle_area(radius)
!DEC$ ATTRIBUTES DLLEXPORT :: CIRCLE_AREA
!DEC$ ATTRIBUTES ALIAS : "Circle_Area" :: CIRCLE_AREA
implicit none
real radius
real, parameter :: PI = 3.14159
www.eeworm.com/read/258562/11854623
f90 ex1206f.f90
subroutine getstring(a)
!
implicit none
character(len=*) :: a
write(*,*) a
return
end subroutine
module typedef
implicit none
type person
sequence
integer age
real
www.eeworm.com/read/258562/11854630
f90 ex1207f.f90
subroutine getinteger(num)
!DEC$ ATTRIBUTES C, ALIAS:'_getinteger' :: getinteger
implicit none
integer num
write(*,*) num
return
end subroutine
subroutine getstring(string, len)
!DEC
www.eeworm.com/read/258562/11854647
f90 ex1208f.f90
module typedef
implicit none
type person
integer age
real weight, height
end type
end module
program main
use typedef
implicit none
integer :: a=3
character(len=20)
www.eeworm.com/read/258562/11854653
f90 ex1201s.f90
subroutine SUB()
!DEC$ ATTRIBUTES DLLEXPORT :: SUB
implicit none
write(*,*) "Subroutine in DLL"
return
end
www.eeworm.com/read/258562/11854662
f90 mouse.f90
! 处理鼠标事件的函数
module MouseEvent
use DFLIB
implicit none
Contains
! 鼠标在窗口中每移动一次,就会调用这个函数
subroutine ShowLocation(iunit, ievent, ikeystate, ixpos, iypos)
implicit none
integer :: iunit
www.eeworm.com/read/258562/11854714
f90 menu.f90
! 使用菜单范例
! By Perng 1997/9/22
program Menu_Demo
use DFLIB
implicit none
type(windowconfig) :: wc
integer :: result
integer :: i,ix,iy
wc.numxpixels=200 ! 窗口的宽
wc.numypixels=200 !
www.eeworm.com/read/258562/11854765
f90 dialog.f90
!
! 使用菜单及对话窗的范例
! By Perng 1997/9/22
program Menu_Demo
use DFLIB
implicit none
type(windowconfig) :: wc
integer :: result
integer :: i,ix,iy
wc.numxpixels=200 ! 窗口的宽
wc.numypix
www.eeworm.com/read/258562/11854792
for ex0503.for
PROGRAM ex0503
IMPLICIT NONE
INTEGER rain, windspeed
WRITE(*,*) "Rain:"
READ (*,*) rain
WRITE(*,*) "Wind Speed:"
READ (*,*) windspeed
IF ( rain .GT. 150 .OR. windspeed .GT. 10 ) THE
www.eeworm.com/read/258562/11854796
for ex0515.for
PROGRAM ex0515
IMPLICIT NONE
INTEGER I
INTEGER N
PARAMETER(N=10)
DATA I /0/
10 WRITE(*, '(1X,A3,I2)' ) 'I=',I
I=I+1
IF ( I .LT. N ) GO