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
writeBinaryPrec = precFloat32
readBinaryPrec = precFloat32
INTEGER precFloat32
PARAMETER ( precFloat32 = 32 )
IF ( fflags(listId)(1:1).EQ.'R' ) prec = precFloat32
IF ( ((writeBinaryPrec .EQ. precFloat32)
cost_iprec = precFloat32
& (exf_iprec.EQ.precFloat32 .OR. exf_iprec.EQ.precFloat64)