/*! * Sets the RMS value for unit [iunit] to [rmsVal]. Fortran wrappers iiuAltRMS and * ialrms. */ void iiuAltRMS(int iunit, float rmsVal) { MrcHeader *hdr = iiuMrcHeader(iunit, "iiuAltRMS", 1, 0); hdr->rms = rmsVal; }
/*! * Returns the space group entry, {ispg}, into [ispg] for unit [iunit]. Fortran * wrapper iiuRetSpaceGroup. */ void iiuRetSpaceGroup(int iunit, int *ispg) { MrcHeader *hdr = iiuMrcHeader(iunit, "iiuRetSpaceGroup", 1, 0); *ispg = hdr->ispg; }
/*! * Sets file mode for unit [iunit] to [mode]. Fortran wrappers iiuAltMode and ialmod. */ void iiuAltMode(int iunit, int mode) { MrcHeader *hdr = iiuMrcHeader(iunit, "iiuAltMode", 1, 0); hdr->mode = mode; iiuSyncWithMrcHeader(iunit); }
/*! * Returns the RMS value, if set, into [rmsVal] for unit [iunit]. Fortran wrappers * iiuRetRMS and irtrms. */ void iiuRetRMS(int iunit, float *rmsVal) { MrcHeader *hdr = iiuMrcHeader(iunit, "iiuRetRMS", 1, 0); *rmsVal = hdr->rms; }
/*! * Sets flag for whether to write bytes as signed (transient {byteSigned} member) to * value of [iflags] for unit [iunit]. Fortran wrappers iiuAltSigned and ialsigned. */ void iiuAltSigned(int iunit, int iflags) { MrcHeader *hdr = iiuMrcHeader(iunit, "iiuAltSigned", 1, 0); hdr->bytesSigned = iflags; }
/*! * Sets the {nversion} component to [version] for unit [iunit]. This should be set * non-zero only for a file fully conforming to at least the 2014 MRC standard. Fortran * wrapper iiuAltMRCVersion. */ void iiuAltMRCVersion(int iunit, int version) { MrcHeader *hdr = iiuMrcHeader(iunit, "iiuAltMRCVersion", 1, 0); hdr->nversion = version; }
/*! * Returns the {imodFlags} component in [iflags] and 1 if the file has the IMOD stamp in * [ifImod] for unit [iunit]. Fortran wrappers iiuRetImodFlags and irtImodFlags. */ void iiuRetImodFlags(int iunit, int *iflags, int *ifImod) { MrcHeader *hdr = iiuMrcHeader(iunit, "iiuRetImodFlags", 1, 0); *iflags = hdr->imodFlags; *ifImod = hdr->imodStamp == IMOD_MRC_STAMP ? 1 : 0; }
/*! * Sets the {imodFlags} component to [iflags] for unit [iunit]. Fortran wrappers * iiuAltImodFlags and ialimodflags */ void iiuAltImodFlags(int iunit, int iflags) { MrcHeader *hdr = iiuMrcHeader(iunit, "iiuAltImodFlags", 1, 0); hdr->imodFlags = iflags; }
/*! * Sets the elements {nint} and {nreal} unit [iunit]. Fortran wrappers * iiuAltExtendedType and ialsymtyp. */ void iiuAltExtendedType(int iunit, int nintOrFlags, int nrealOrBytes) { MrcHeader *hdr = iiuMrcHeader(iunit, "iiAltExtendedType", 1, 0); hdr->nint = nintOrFlags; hdr->nreal = nrealOrBytes; }
/*! * Returns the elements {nint} and {nreal} describing the extended header data type and * size per section for unit [iunit]. Fortran wrappers iiuRetExtendedType and irtsymtyp. */ void iiuRetExtendedType(int iunit, int *nintOrFlags, int *nrealOrBytes) { MrcHeader *hdr = iiuMrcHeader(iunit, "iiRetExtendedType", 1, 0); *nintOrFlags = hdr->nint; *nrealOrBytes = hdr->nreal; }
/*! * Sets the number of bytes in the extended header of unit [iuit] ito [numBytes]. * Fortran wrappers iiuAltNumExtended and irtnbsym. */ void iiuAltNumExtended(int iunit, int numBytes) { MrcHeader *hdr = iiuMrcHeader(iunit, "iiuAltNumExtended", 1, 0); hdr->next = numBytes; hdr->headerSize = 1024 + numBytes; }
/*! * Returns the number of bytes in the extended header of unit [iuit] into [numBytes]. * Fortran wrappers iiuRetNumExtended and irtnbsym. */ void iiuRetNumExtended(int iunit, int *numBytes) { MrcHeader *hdr = iiuMrcHeader(iunit, "iiuRetNumExtended", 1, 0); *numBytes = hdr->next; }
/*! * Transfers labels from unit [iunit] to [intoUnit]. Fortran wrappers iiuTransLabels and * itrlab. */ void iiuTransLabels(int intoUnit, int iunit) { MrcHeader *ihdr = iiuMrcHeader(iunit, "iiuTransLabels", 1, 0); MrcHeader *jhdr = iiuMrcHeader(intoUnit, "iiuTransLabels", 1, 0); mrc_head_label_cp(ihdr, jhdr); }