10.GMS変数の定義とその周辺

GMS変数の定義
type var1d
  real(8), dimension(:), pointer :: value
  integer, dimension(1)          :: grid
end type var1d

GMS変数のallocateと初期値化
  subroutine def_var1d(input, grid)
    type(var1d), intent(inout) :: input
    integer,dimension(1), intent(in) :: grid 

    input%value => my_allocate_1d_save()

    input%value = 0.0D0
    input%grid = grid

  end subroutine def_var1d