Added fortran

lib/descr/fe

@@ -21,8 +21,10 @@ name cpp
 	mapflag -ansi ANSI_C=.ansi
 	args {CPP_F?} ({SUFFIX?}:.ocm=-I{EM}/include/occam) \
 		-D__{NAME} \
-		({ANSI_C?}:.ansi={SYSINCLUDES?} {ANSI_C_INCLUDES} {INCLUDES?}) \
-		({ANSI_C?.c}:{SUFFIX}={SYSINCLUDES?} {C_INCLUDES} {INCLUDES?}) \
+		{SYSINCLUDES?} \
+		({ANSI_C?}:.ansi={ANSI_C_INCLUDES}) \
+		{C_INCLUDES} \
+		{INCLUDES?} \
 		({ANSI_C?.xx}:.xx=-D{NAME} \
 		-DEM_WSIZE={w} -DEM_PSIZE={p} \
 		-DEM_SSIZE={s} -DEM_LSIZE={l} -DEM_FSIZE={f} -DEM_DSIZE={d}) \
@@ -32,6 +34,22 @@ name cpp
 	stdout
 	prep is
 end
+name f77
+	from .f
+	to .c
+	program {EM}/lib.bin/f2c
+	mapflag -ansi F2_F={F2_F?} -A
+	mapflag -w* F2_F={F2_F?} -w*
+	args \
+		{F2_F?}
+	stdin
+	stdout
+	prep cond
+	rts .f
+	need .f
+	callname f77
+	callname f2c
+end
 name cem
 	from .c
 	to .k
@@ -58,7 +76,7 @@ name cem
 		{CPP_F?} \
 		{SYSINCLUDES?} \
 		({ANSI_C?}:.ansi={ANSI_C_INCLUDES}) \
-		({ANSI_C?.c}:.c={C_INCLUDES}) \
+		{C_INCLUDES} \
 		{INCLUDES?} \
 		({ANSI_C?}:.ansi=-D__{NAME}) \
 		({ANSI_C?.xx}:.xx=-D{NAME}) \