SetGaussBoagaparametersCoord Subroutine

private subroutine SetGaussBoagaparametersCoord(coord, fuse, override)

Set parameters for Gauss Boaga reference system

Arguments

Type IntentOptional Attributes Name
type(Coordinate), intent(inout) :: coord
integer(kind=short), intent(in) :: fuse
integer(kind=short), intent(in), optional :: override

Source Code

SUBROUTINE SetGaussBoagaparametersCoord &
!
(coord, fuse, override)

IMPLICIT NONE

!Arguments with intent (in):
INTEGER (KIND = short), INTENT (IN) :: fuse
INTEGER (KIND = short), OPTIONAL, INTENT (IN) :: override

! Arguments with intent (inout):
TYPE (Coordinate), INTENT (INOUT) :: coord

!------------end of declaration------------------------------------------------

IF (PRESENT (override) ) THEN
  CALL SetGaussBoagaParametersSystem (coord % system, fuse, override)
ELSE
  CALL SetGaussBoagaParametersSystem (coord % system, fuse)
END IF

END SUBROUTINE SetGaussBoagaparametersCoord