代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/221868/14716863
f90 ex0505.f90
program ex0505
implicit none
integer score
character grade
write(*,*) "Score:"
read(*,*) score
if ( score>=90 .and. score=80 .and.
www.eeworm.com/read/208614/15242345
f90 zanly.f90
program main
use IMSL
implicit none
integer, parameter :: N = 3
integer :: INFO(N)
integer, parameter :: ITMAX = 100
integer, parameter :: NKNOWN = 0
integer, parameter :: NNEW =
www.eeworm.com/read/208614/15242352
f90 fnlsq.f90
program main
use IMSL
implicit none
integer, parameter :: INTCEP = 1
integer, parameter :: NBASIS = 2
integer, parameter :: NDATA = 90
integer, parameter :: IWT = 0
real, external
www.eeworm.com/read/208614/15242416
f90 ex0909.f90
program ex0909
implicit none
integer, parameter :: inputfileid = 10, outputfileid = 11
integer, parameter :: maxbuffer = 200
character(len=80) :: inputfile, outputfile
character(len=ma
www.eeworm.com/read/208614/15242513
f90 ex0505.f90
program ex0505
implicit none
integer score
character grade
write(*,*) "Score:"
read(*,*) score
if ( score>=90 .and. score=80 .and.
www.eeworm.com/read/233448/4678682
f90 intrinsic_shape.f90
! Program to test the shape intrinsic
program testbounds
implicit none
real, dimension(:, :), allocatable :: a
integer, dimension(2) :: j
integer i
allocate (a(3:8, 6:7))
j = shape
www.eeworm.com/read/233448/4678684
f90 read_null_string.f90
! pr 16080, segfault on reading an empty string
implicit none
integer t
character*20 temp_name
character*2 quotes
open(unit=7,status='SCRATCH')
quotes = '""""
www.eeworm.com/read/233448/4678744
f90 retarray.f90
! Program to test functions returning arrays
program testfnarray
implicit none
integer, dimension (6, 5) :: a
integer n
! These first two shouldn't require a temporary.
a = 0
a = test
www.eeworm.com/read/233448/4678759
f90 intrinsic_mmval.f90
! Program to test the MINVAL and MAXVAL intrinsics
program testmmval
implicit none
integer, dimension (3, 3) :: a
integer, dimension (3) :: b
logical, dimension (3, 3) :: m, tr
integer
www.eeworm.com/read/233448/4678762
f90 backspace.f90
! pr 15755
implicit none
character*1 C
open(10)
write(10,*)'a'
write(10,*)'b'
write(10,*)'c'
rewind(10)
read(10,*)C
backspace(10