SimulationCore2/CSharp/Problems/CLostProblems.f90

module CLostProblems
	use CLostProblemsVariables
	implicit none    
	public 
    contains   
    
    ! Input routines
    subroutine SetLostCirculation(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetLostCirculation
    !DEC$ ATTRIBUTES ALIAS: 'SetLostCirculation' :: SetLostCirculation
	    implicit none
	    type(CProblem), intent(in) :: v
	    LostCirculation = SetDue(v, ChangeLostCirculation)
#ifdef deb
	    print*, 'LostCirculation%ProblemType=', LostCirculation%ProblemType
	    print*, 'LostCirculation%StatusType=', LostCirculation%StatusType
	    print*, 'LostCirculation%Value=', LostCirculation%Value
#endif
    end subroutine

    subroutine SetFlowRate(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetFlowRate
    !DEC$ ATTRIBUTES ALIAS: 'SetFlowRate' :: SetFlowRate
	    implicit none
	    real*8, intent(in) :: v
	    FlowRate = v
#ifdef deb
	print*, 'FlowRate=', FlowRate
#endif
    end subroutine
    
end module CLostProblems