polyProfile_new Function

public function polyProfile_new(coefs) result(sf)

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: coefs(:)

B-Spline coefficients

Return Value type(t_rProfile_poly)


Called by

proc~~polyprofile_new~~CalledByGraph proc~polyprofile_new polyProfile_new interface~t_rprofile_poly t_rProfile_poly interface~t_rprofile_poly->proc~polyprofile_new

Source Code

  FUNCTION polyProfile_new(coefs) RESULT(sf)
  ! MODULES
  !-----------------------------------------------------------------------------------------------------------------------------------
  ! INPUT VARIABLES
    REAL,    INTENT(IN) :: coefs(:)  !! B-Spline coefficients
  !-----------------------------------------------------------------------------------------------------------------------------------
  ! OUTPUT VARIABLES
    TYPE(t_rProfile_poly) :: sf
  !-----------------------------------------------------------------------------------------------------------------------------------
  ! LOCAL VARIABLES
    INTEGER :: n_coefs
  !===================================================================================================================================
    n_coefs=SIZE(coefs)
    sf%deg   = n_coefs-1
    sf%n_coefs = n_coefs
    ALLOCATE(sf%coefs(1:n_coefs))
    sf%coefs = coefs
  END FUNCTION polyProfile_new