cost_iprec = precFloat32
& (exf_iprec.EQ.precFloat32 .OR. exf_iprec.EQ.precFloat64)
IF ( fPrec.EQ.precFloat32 ) THEN
if (filePrec .eq. precFloat32) then
IF (filePrec .EQ. precFloat32) THEN
IF ( filePrec.EQ.precFloat32 ) THEN
filePrec = precFloat32
if (filePrec .EQ. precFloat32) then
readBinaryPrec = precFloat32
writeBinaryPrec = precFloat32
I precFloat32, precFloat64,
IF ( ((writeBinaryPrec .EQ. precFloat32).AND.
IF ( fflags(listId)(1:1).EQ.'R' ) prec = precFloat32
INTEGER precFloat32
PARAMETER ( precFloat32 = 32 )