Lines Matching refs:my_unit
1089 INTEGER :: i, my_unit, pos local
1100 my_unit = unit%unit_id(i)
1103 IF (my_unit == 0) THEN
1105 my_unit = defaults%units(unit%kind_id(i))%unit%unit_id(1)
1116 … basic_unit=my_unit, accept_undefined=my_accept_undefined, &
1216 TYPE(cp_unit_type), POINTER :: my_unit local
1218 NULLIFY (my_unit)
1219 CALL cp_unit_create(my_unit, unit_str)
1221 res = cp_unit_to_cp2k1(value=value, unit=my_unit, defaults=defaults, &
1224 res = cp_unit_to_cp2k1(value=value, unit=my_unit, power=power)
1226 CALL cp_unit_release(my_unit)
1249 TYPE(cp_unit_type), POINTER :: my_unit local
1251 NULLIFY (my_unit)
1252 CALL cp_unit_create(my_unit, unit_str)
1254 res = cp_unit_from_cp2k1(value=value, unit=my_unit, defaults=defaults, &
1257 res = cp_unit_from_cp2k1(value=value, unit=my_unit, power=power)
1259 CALL cp_unit_release(my_unit)