Listing 1. Part of GRIP code with blade surface generation.

….

SPL3(K+1)=SPLINE/PT0(1..N-1) $$ upper surface

SPL4(K+1)=SPLINE/PT1(1..N-1) $$ lower surface

dfi=fi(4)*cr+fi(3)*cr+fi(2)*cr+fi(1)

MAT=MATRIX/XYROT,-dfi

SPL1(K+1)=TRANSF/MAT,SPL3(K+1)

SPL2(K+1)=TRANSF/MAT,SPL4(K+1)

$$ LN(K+1)=TRANSF/MAT,LN1(K+1)

PT2(K+1)=POINT/ENDOF,XSMALL,SPL1(K+1)

PT3(K+1)=POINT/ENDOF,XLARGE,SPL1(K+1)

PT4(K+1)=POINT/ENDOF,XLARGE,SPL2(K+1)

LN(K+1)=SPLINE/PT3(K+1),PT4(K+1)

DELETE/PT0,PT1,SPL3,SPL4,LN1

IFTHEN/K<M

K=K+1

JUMP/L10:

ELSE

JUMP/L40:

ENDIF

L40:

A=&POINT(PT3(1))

B=&POINT(PT4(1))

SPLC(1)=SPLINE/PT2(1..K+1)

SPLC(2)=SPLINE/PT3(1..K+1)

SPLC(3)=SPLINE/PT4(1..K+1)

SSRF(1)=BSURF/MESH,SPLC(1..2),WITH,SPL1(1..K+1),TYPE,3,TOLER,.01,.01

SSRF(2)=BSURF/MESH,SPLC(1),SPLC(3),WITH,SPL2(1..K+1),TYPE,3,TOLER,.01,.01

SSRF(3) = RLDSRF/SPLC(2),,SPLC(3)

SSRF(4) =RLDSRF/SPL1(1),,SPL2(1)

SSRF(5) =RLDSRF/SPL1(K+1),,SPL2(K+1)

BLD(1)=SEW/SSRF(1..5)

….