f90からCに変換