/*!
* 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);
}
