convin.F90

Go to the documentation of this file.

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