add defstruct.f90