34 lines
473 B
Fortran
34 lines
473 B
Fortran
|
|
||
|
|
!use prec
|
||
|
|
!use IO
|
||
|
|
!use constitutive
|
||
|
|
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
integer, dimension(4) :: array,m
|
||
|
|
|
||
|
|
real a,twopi
|
||
|
|
integer i
|
||
|
|
|
||
|
|
array = (/10,2,3,4/)
|
||
|
|
m = (/1,1,0,0/)
|
||
|
|
|
||
|
|
write(*,*) maxval(array,m /= 0)
|
||
|
|
|
||
|
|
twopi=2.0*3.1415926
|
||
|
|
a=1.234
|
||
|
|
|
||
|
|
do i=0,-3,-1
|
||
|
|
write(*,*) a+i*twopi,modulo(a+i*twopi,twopi)
|
||
|
|
enddo
|
||
|
|
|
||
|
|
|
||
|
|
!call constitutive_parse_MatTexDat('materials_textures.mpie')
|
||
|
|
|
||
|
|
!write(*,*) 'materials_maxN ', materials_maxN
|
||
|
|
!write(*,*) 'textures_maxN ', textures_maxN
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
end
|