fortran/test/tH5O.F90

586   INTEGER :: max_compact, min_dense            ! Actual phase change parameters   local
626   CALL H5Pget_attr_phase_change_f(gcpl, max_compact, min_dense, error)
628   CALL verify("H5Pget_attr_phase_change_f", max_compact, (def_max_compact + 1), total_error)
631   CALL H5Pget_attr_phase_change_f(dcpl, max_compact, min_dense, error)
633   CALL verify("H5Pget_attr_phase_change_f", max_compact, (def_max_compact + 1), total_error)
636   CALL H5Pget_attr_phase_change_f(tcpl, max_compact, min_dense, error)
638   CALL verify("H5Pget_attr_phase_change_f", max_compact, (def_max_compact + 1), total_error)
695   CALL H5Pget_attr_phase_change_f(gcpl, max_compact, min_dense, error)
697   CALL verify("H5Pget_attr_phase_change_f", max_compact, (def_max_compact + 1), total_error)
700   CALL H5Pget_attr_phase_change_f(dcpl, max_compact, min_dense, error)
702   CALL verify("H5Pget_attr_phase_change_f", max_compact, (def_max_compact + 1), total_error)
705   CALL H5Pget_attr_phase_change_f(tcpl, max_compact, min_dense, error)
707   CALL verify("H5Pget_attr_phase_change_f", max_compact, (def_max_compact + 1), total_error)
752   CALL H5Pget_attr_phase_change_f(gcpl, max_compact, min_dense, error)
754   CALL verify("H5Pget_attr_phase_change_f", max_compact, (def_max_compact + 1), total_error)
757   CALL H5Pget_attr_phase_change_f(dcpl, max_compact, min_dense, error)
759   CALL verify("H5Pget_attr_phase_change_f", max_compact, (def_max_compact + 1), total_error)
762   CALL H5Pget_attr_phase_change_f(tcpl, max_compact, min_dense, error)
764   CALL verify("H5Pget_attr_phase_change_f", max_compact, (def_max_compact + 1), total_error)