ReadSxSy Subroutine

public subroutine ReadSxSy(ThreeD)

Arguments

Type IntentOptional Attributes Name
logical, intent(in) :: ThreeD

Calls

proc~~readsxsy~~CallsGraph proc~readsxsy ReadSxSy proc~readvector ReadVector proc~readsxsy->proc~readvector interface~sort Sort proc~readvector->interface~sort interface~subtab SubTab proc~readvector->interface~subtab proc~errout ERROUT proc~readvector->proc~errout proc~sort_cmplx Sort_cmplx interface~sort->proc~sort_cmplx proc~sort_dble Sort_dble interface~sort->proc~sort_dble proc~sort_sngl Sort_sngl interface~sort->proc~sort_sngl proc~subtab_dble SubTab_dble interface~subtab->proc~subtab_dble proc~subtab_sngl SubTab_sngl interface~subtab->proc~subtab_sngl

Called by

proc~~readsxsy~~CalledByGraph proc~readsxsy ReadSxSy proc~readenvironment ReadEnvironment proc~readenvironment->proc~readsxsy program~bellhop BELLHOP program~bellhop->proc~readenvironment program~bellhop3d BELLHOP3D program~bellhop3d->proc~readenvironment

Source Code

  SUBROUTINE ReadSxSy( ThreeD )

    ! Reads source x-y coordinates

    LOGICAL, INTENT( IN ) :: ThreeD   ! flag indicating whether this is a 3D run

    IF ( ThreeD ) THEN
       CALL ReadVector( Pos%NSx, Pos%Sx, 'Source   x-coordinates, Sx', 'km' )
       CALL ReadVector( Pos%NSy, Pos%Sy, 'Source   y-coordinates, Sy', 'km' )
    ELSE
       ALLOCATE( Pos%Sx( 1 ), Pos%Sy( 1 ) )
       Pos%Sx( 1 ) = 0.
       Pos%Sy( 1 ) = 0.
    END IF

    RETURN
  END SUBROUTINE ReadSxSy