＜Component Example Program＞

Program component_defn_example
   Type material
      Real young, poisson
   End Type material
   Type member
      Type(material) steel, concrete
   End Type member
   Type (member) kouzou
   kouzou%steel%young = 200.
   kouzou%concrete%young = 20.
   kouzou%steel%poisson = 0.3
   kouzou%concrete%poisson = 0.16
   Print 1, kouzou%steel
   Print 1, kouzou%concrete
1  Format(1X,2G15.6)
End

---

■ Execution Results

     200.000       0.300000
     20.0000       0.160000