nc_identoptfast.f95 250 KB