Fortranの READ部分を下部に記載.
READ(21,2100, IOSTAT=istat) obs(iobs)%code, &
obs(iobs)%yy, obs(iobs)%mm, &
obs(iobs)%dd, obs(iobs)%UTC, idum, &
obs(iobs)%ipres, obs(iobs)%pres_flag, &
obs(iobs)%itemp, obs(iobs)%temp_flag, &
obs(iobs)%itmax, obs(iobs)%tmax_flag, &
obs(iobs)%itmin, obs(iobs)%tmin_flag, &
obs(iobs)%vapor, obs(iobs)%vapor_flag, &
obs(iobs)%RH, obs(iobs)%RH_flag, &
obs(iobs)%rain, obs(iobs)%rain_flag, &
obs(iobs)%wdir, obs(iobs)%wdir_flag, &
obs(iobs)%wspd, obs(iobs)%wspd_flag, &
dummy01, & ! cloud type
obs(iobs)%site_type, site_type_flag, &
obs(iobs)%now, obs(iobs)%now_flag, &
obs(iobs)%past01, obs(iobs)%past01_flag, &
obs(iobs)%past02, obs(iobs)%past02_flag, &
icloud_base,cloud_base_flag, &
obs(iobs)%cvis, obs(iobs)%vis_flag, &
dpdt,dpdt_flag, dp,dp_flag