<Example Program>
Program end_type_example Type material Character (5) :: name Real :: young Real :: poisson End Type material Type (material) steel,concrete steel%name = 'A36' steel%young = 200. steel%poisson = 0.3 concrete = material( 'A36',200.,0.3 ) Print *, steel Print *, concrete End |
|
![]() A36 2.0000000E+02 0.3000000 A36 2.0000000E+02 0.3000000 |