Searched refs:ZirkaEntry (Results 1 – 1 of 1) sorted by relevance
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
| H A D | ZirkaHysteresis.F90 | 820 type(ValueListEntry_t), pointer :: ZirkaEntry local
837 ZirkaEntry => listfind(material, 'zirka material', haszirka)
839 if (.not. ZirkaEntry % LValue) CYCLE
865 ZirkaEntry % PROCEDURE = TRANSFER(c_loc(zirkamodel), ZirkaEntry % PROCEDURE)
897 ZirkaEntry => ListFind(material, 'zirka material', haszirka)
946 ZirkaEntry => ListFind(material, 'zirka material', haszirka)
967 TYPE(ValueListEntry_t), POINTER :: ZirkaEntry local
972 ZirkaEntry => ListFind(material, 'zirka material', haszirka)
975 c_zirka_ptr = transfer(ZirkaEntry % PROCEDURE, c_zirka_ptr)
|