declared blnkval real to prevent FTNCHEK from complaining about an argument type mismatch for the complex code
declared blnkval real to prevent FTNCHEK from complaining about an argument
type mismatch for the complex code

chengdi123000/CFL3D,chengdi123000/CFL3D