pro for_createpro
@/usr/work/sur/fvi/OPA/geomag/initorca2_bab
return
end