naca 4 digit airfoil fortran
3.141592653589793 real, dimension(:), allocatable :: x_coords, y_upper_coords, y_lower_coords ! Set the number of points npts = 100 allocate(x_coords(npts)) allocate(y_upper_coords(npts)) allocate(y_lower_coords(npts)) ! Input the four di