51 lines
1.1 KiB
Fortran
51 lines
1.1 KiB
Fortran
program PARAMTER
|
|
call check
|
|
end
|
|
|
|
module constants
|
|
implicit none
|
|
real, parameter::pi = 3.1415926536
|
|
real, parameter::e = 2.7182818285
|
|
contains
|
|
subroutine show_consts()
|
|
print*, "Pi = ", pi
|
|
contains
|
|
subroutine show_e()
|
|
print*, "e = ", e
|
|
end subroutine show_e
|
|
end subroutine show_consts
|
|
end module constants
|
|
|
|
subroutine check
|
|
implicit none
|
|
use constants!, only: pi, p=>pi
|
|
common /global/ key
|
|
real key
|
|
integer n,m,k,l,pn,nl,i,j,ii,jj,nnl
|
|
parameter(N=6,M=8,K=8,L=6,PN=2,NL=1000)
|
|
integer A(N,M,K,L)
|
|
character*9 tname
|
|
|
|
tname='check'
|
|
NNL=NL
|
|
!$SPF ANALYSIS(PARAMETER(N=N))
|
|
!$SPF ANALYSIS(PARAMETER(N=6))
|
|
!$SPF ANALYSIS(PARAMETER(N=6,M=8))
|
|
!$SPF ANALYSIS(PARAMETER(N=M-2))
|
|
!$SPF ANALYSIS(PARAMETER(A(i,j,ii,jj)=M-2, i=1))
|
|
do i=1,N
|
|
!$SPF ANALYSIS(PARAMETER(M=8))
|
|
do j=1,M
|
|
do ii=1,K
|
|
do jj=1,L
|
|
!$SPF ANALYSIS(PARAMETER(NL=9*111+1))
|
|
!$SPF ANALYSIS(PARAMETER(A(i,j,ii,jj)=M-2, i=1))
|
|
!$SPF ANALYSIS(PARAMETER(A=(M-2)*key))
|
|
A(i,j,ii,jj) = NL+i+j+ii+jj
|
|
enddo
|
|
enddo
|
|
enddo
|
|
enddo
|
|
|
|
end
|