C Collection of code snippets by Arne Vajhøj 
C (from articles on eksperten.dk / vajhoej.dk written sometime between 2004 and now) 
      PROGRAM FP
      REAL*8 F1,F2,F3
      REAL*8 X
      F1(X)=2*X+1
      F2(X)=X*X-2
      F3(X)=X**3+7
      DO 100 I=0,3
        WRITE(*,*) I,F1(I),F2(I),F3(I)
100   CONTINUE
      END