Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Model), | intent(in) | :: | this | |||
real(kind=prec), | intent(in) | :: | s(1:this%nvar) | |||
real(kind=prec), | intent(in) | :: | dsdx(1:this%nvar) |
pure function source1d_Model(this,s,dsdx) result(source)
class(Model),intent(in) :: this
real(prec),intent(in) :: s(1:this%nvar)
real(prec),intent(in) :: dsdx(1:this%nvar)
real(prec) :: source(1:this%nvar)
! Local
integer :: ivar
do ivar = 1,this%nvar
source(ivar) = 0.0_prec
enddo
endfunction source1d_Model