convout.F90

Go to the documentation of this file.

INTEGER FUNCTION convout(KCOUNT,KTYPE)
REAL ZCONV(0:5)
INTEGER KCOUNT,KTYPE
zconv=(/0.25,1.0,2.0,2.0,1.0,1.0/)
convout=ceiling(kcount/zconv(ktype))
RETURN
END FUNCTION convout