blconv

合成を実施するためにnewfineフォーマットデータを読む。
read_polar
　modules/m_polar2008.f90
　subroutine read_polar( path, rr, itobs, istatus )
　こちらを使えば、よいはず。
read_rkdp(fnam,rkdp,ito,istatus)
read(iu,iostat=io) ito初めに、時間を読む。

13 use directfile !library
14 !use blconv !Maynot use
15 use rrhead,t_rrhead=>t_head
16 use polar2008,ONLY:read_polar
17 !Not neccessary !use service_routines,ONLY:getarg,unlink,iargc