integer nnn
reclen=nnn*WORDLENGTH
reclen=nnn*WORDLENGTH*2
subroutine OAD_S_MDS_RECLEN( filePrec, nnn, mythid, reclen )
INTEGER nnn
MDS_RECLEN = nnn*WORDLENGTH
MDS_RECLEN = nnn*WORDLENGTH*2
INTEGER FUNCTION MDS_RECLEN( filePrec, nnn, myThid )