changed wording of input queries to (hopefully) clearer statements
This commit is contained in:
parent
fc471d73f3
commit
a546f8dbd2
|
@ -32,18 +32,18 @@ program voronoi
|
||||||
print*, 'generates:'
|
print*, 'generates:'
|
||||||
print*, ' * description file "_OUTPUT_.seeds":'
|
print*, ' * description file "_OUTPUT_.seeds":'
|
||||||
print*, ''
|
print*, ''
|
||||||
write(*, '(A)', advance = 'NO') 'Please enter name of output seed file: '
|
write(*, '(A)', advance = 'NO') 'output seed filename: '
|
||||||
read(*, *), filename
|
read(*, *), filename
|
||||||
write(*, '(A)', advance = 'NO') 'Please enter value random seed: '
|
write(*, '(A)', advance = 'NO') 'seed of random number generator: '
|
||||||
read(*, *), randomSeed; randomSeed = max(0_pInt,randomSeed)
|
read(*, *), randomSeed; randomSeed = max(0_pInt,randomSeed)
|
||||||
write(*, '(A)', advance = 'NO') 'Please enter value for first resolution: '
|
write(*, '(A)', advance = 'NO') 'number of grains: '
|
||||||
read(*, *), a
|
|
||||||
write(*, '(A)', advance = 'NO') 'Please enter value for second resolution: '
|
|
||||||
read(*, *), b
|
|
||||||
write(*, '(A)', advance = 'NO') 'Please enter value for third resolution: '
|
|
||||||
read(*, *), c
|
|
||||||
write(*, '(A)', advance = 'NO') 'Please enter No. of Grains: '
|
|
||||||
read(*, *), N_Seeds
|
read(*, *), N_Seeds
|
||||||
|
write(*, '(A)', advance = 'NO') 'min. Fourier points in x: '
|
||||||
|
read(*, *), a
|
||||||
|
write(*, '(A)', advance = 'NO') 'min. Fourier points in y: '
|
||||||
|
read(*, *), b
|
||||||
|
write(*, '(A)', advance = 'NO') 'min. Fourier points in z: '
|
||||||
|
read(*, *), c
|
||||||
|
|
||||||
allocate (seedmap(a*b*c)); seedmap = .false. ! logical to store information which position is occupied by a voronoi seed
|
allocate (seedmap(a*b*c)); seedmap = .false. ! logical to store information which position is occupied by a voronoi seed
|
||||||
allocate (seeds(N_Seeds,3))
|
allocate (seeds(N_Seeds,3))
|
||||||
|
|
|
@ -189,9 +189,9 @@ program voronoi
|
||||||
print*, ' * material file "material.config": Orientation information for solver'
|
print*, ' * material file "material.config": Orientation information for solver'
|
||||||
print*, ' * "_OUTPUT_.spectral": combined information for solver'
|
print*, ' * "_OUTPUT_.spectral": combined information for solver'
|
||||||
print*, ''
|
print*, ''
|
||||||
write(*, '(A)', advance = 'NO') 'Enter output filename: '
|
write(*, '(A)', advance = 'NO') 'output filename: '
|
||||||
read(*, *), output_name
|
read(*, *), output_name
|
||||||
write(*, '(A)', advance = 'NO') 'Enter seed input file (extension .seeds): '
|
write(*, '(A)', advance = 'NO') 'seed input filename (w/o extension .seeds): '
|
||||||
read(*, *), input_name
|
read(*, *), input_name
|
||||||
|
|
||||||
open(20, file = trim(input_name)//('.seeds'), status='old', action='read')
|
open(20, file = trim(input_name)//('.seeds'), status='old', action='read')
|
||||||
|
@ -226,22 +226,22 @@ program voronoi
|
||||||
grainCheck = .false.
|
grainCheck = .false.
|
||||||
|
|
||||||
print*, 'resolution: ' ,a,b,c
|
print*, 'resolution: ' ,a,b,c
|
||||||
write(*, '(A)', advance = 'NO') 'New first resolution: '
|
write(*, '(A)', advance = 'NO') 'resolution in x: '
|
||||||
read(*, *), a
|
read(*, *), a
|
||||||
write(*, '(A)', advance = 'NO') 'New second resolution: '
|
write(*, '(A)', advance = 'NO') 'resolution in y: '
|
||||||
read(*, *), b
|
read(*, *), b
|
||||||
write(*, '(A)', advance = 'NO') 'New third resolution: '
|
write(*, '(A)', advance = 'NO') 'resolution in z: '
|
||||||
read(*, *), c
|
read(*, *), c
|
||||||
|
|
||||||
step(1) = 1.0_pReal/real(a,pReal)
|
step(1) = 1.0_pReal/real(a,pReal)
|
||||||
step(2) = 1.0_pReal/real(b,pReal)
|
step(2) = 1.0_pReal/real(b,pReal)
|
||||||
step(3) = 1.0_pReal/real(c,pReal)
|
step(3) = 1.0_pReal/real(c,pReal)
|
||||||
|
|
||||||
write(*, '(A)', advance = 'NO') 'First dimension: '
|
write(*, '(A)', advance = 'NO') 'size in x: '
|
||||||
read(*, *), dim(1)
|
read(*, *), dim(1)
|
||||||
write(*, '(A)', advance = 'NO') 'Second dimension: '
|
write(*, '(A)', advance = 'NO') 'size in y: '
|
||||||
read(*, *), dim(2)
|
read(*, *), dim(2)
|
||||||
write(*, '(A)', advance = 'NO') 'Third dimension: '
|
write(*, '(A)', advance = 'NO') 'size in z: '
|
||||||
read(*, *), dim(3)
|
read(*, *), dim(3)
|
||||||
|
|
||||||
rewind(20)
|
rewind(20)
|
||||||
|
|
Loading…
Reference in New Issue