Template:CMI Example set grid values Fortran
From CSDMS
! Insert-Code-Here {edu.csdms.models.LTRANS.set_grid_values} (set_grid_values method)
!
! This method has not been implemented
!
! DO-DELETE-WHEN-IMPLEMENTING exception.begin(edu.csdms.models.LTRANS.set_grid_values)
type(sidl_BaseInterface_t) :: throwaway
type(sidl_NotImplementedException_t) :: notImpl
call new(notImpl, exception)
call setNote(notImpl, 'Not Implemented', exception)
call cast(notImpl, exception,throwaway)
call deleteRef(notImpl,throwaway)
return
! DO-DELETE-WHEN-IMPLEMENTING exception.end(edu.csdms.models.LTRANS.set_grid_values)