AZA_N
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
!==================================================
Module M_Test
implicit none
integer i/1/,j/1/,k/1/,L/1/,m/1/,n/1/,o/1/
integer ierr/0/
integer Im/3/,Jm/3/,Km/3/,Lm/2/,Mm/3/,Nm/3/,Om/10/
real,allocatable::A(:,:,:,:,:,:,: ) !A(i,j,k,L,m,n,o)
End module M_Test
!==================================================
Program TestModule
use M_Test
implicit none
do Om=1,3
call TM1
print *,' Om=',Om
do L=1,Lm; do o=1,Om
print *,' A=',A(i,j,k,L,m,n,o)
enddo; enddo
enddo
stop
End Program TestModule
!==================================================
Subroutine TM1
use M_Test
implicit none
ierr=0; if(allocated(A))deallocate(A)
allocate(A(Im,Jm,Km,Lm,Mm,Nm,Om),stat=ierr); A=0.
do L=1,Lm
do o=1,Om
A(i,j,k,L,m,n,o)=10.*L+float(o)
enddo
enddo
End subroutine TM1
!==================================================
|
