ObserverSourcePairAllocSolution Subroutine

public subroutine ObserverSourcePairAllocSolution(self, buffer_size)

Type Bound

ObserverSourcePairClass

Arguments

Type IntentOptional Attributes Name
class(ObserverSourcePairClass) :: self
integer, intent(in) :: buffer_size

Source Code

  Subroutine ObserverSourcePairAllocSolution(self, buffer_size)

       class(ObserverSourcePairClass)                      :: self
       integer, intent(in)                                 :: buffer_size
       
       allocate(self % Pacc(buffer_size,3))

  End Subroutine ObserverSourcePairAllocSolution