代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/476406/6761036
f90 ex0511.f90
program ex0511
implicit none
character(len=20) :: str1,str2
character relation
write(*,*) "String 1:"
read(*,"(A20)") str1
write(*,*) "String 2:"
read(*,"(A20)") str2
if (
www.eeworm.com/read/409260/11338644
f90 ex0614.f90
program ex0614
implicit none
real a,b,ans
character :: key = 'y' ! 为了至少进入循环1次
do while( key=='y' .or. key=='Y' )
read(*,*) a
read(*,"(A1)") key
read(*,*) b
select case(key)
www.eeworm.com/read/409260/11338751
f90 ex1015.f90
module linklist
implicit none
type :: datalink
integer :: i
type(datalink), pointer :: prev ! 指向上一条数据
type(datalink), pointer :: next ! 指向下一条数据
end type datalink
contains
www.eeworm.com/read/409260/11339001
f90 ex0511.f90
program ex0511
implicit none
character(len=20) :: str1,str2
character relation
write(*,*) "String 1:"
read(*,"(A20)") str1
write(*,*) "String 2:"
read(*,"(A20)") str2
if (
www.eeworm.com/read/258562/11854268
f90 ex0614.f90
program ex0614
implicit none
real a,b,ans
character :: key = 'y' ! 为了至少进入循环1次
do while( key=='y' .or. key=='Y' )
read(*,*) a
read(*,"(A1)") key
read(*,*) b
select case(key)
www.eeworm.com/read/258562/11854445
f90 ex1015.f90
module linklist
implicit none
type :: datalink
integer :: i
type(datalink), pointer :: prev ! 指向上一条数据
type(datalink), pointer :: next ! 指向下一条数据
end type datalink
contains
www.eeworm.com/read/258562/11854836
f90 ex0511.f90
program ex0511
implicit none
character(len=20) :: str1,str2
character relation
write(*,*) "String 1:"
read(*,"(A20)") str1
write(*,*) "String 2:"
read(*,"(A20)") str2
if (
www.eeworm.com/read/152732/12089994
f90 test4.f90
PROGRAM test4
! Test of subroutine INV.
USE lsq
IMPLICIT NONE
REAL ( lsq_kind ) :: rinv(15), rho = 0.6D0, zero = 0.0
INTEGER :: pos, row, col
CALL startup(7, .false.)
po
www.eeworm.com/read/221868/14716732
f90 ex0614.f90
program ex0614
implicit none
real a,b,ans
character :: key = 'y' ! 为了至少进入循环1次
do while( key=='y' .or. key=='Y' )
read(*,*) a
read(*,"(A1)") key
read(*,*) b
select case(key)
www.eeworm.com/read/221868/14716753
f90 ex1015.f90
module linklist
implicit none
type :: datalink
integer :: i
type(datalink), pointer :: prev ! 指向上一条数据
type(datalink), pointer :: next ! 指向下一条数据
end type datalink
contains