[cig-commits] r14520 - mc/2D/ConMan/trunk/src/gendeck

[becker at geodynamics.org]

Author: becker
Date: 2009-03-28 12:04:59 -0700 (Sat, 28 Mar 2009)
New Revision: 14520

Added:
   mc/2D/ConMan/trunk/src/gendeck/Makefile-gfort64
Modified:
   mc/2D/ConMan/trunk/src/gendeck/gendeck.f
Log:
Fixed one white space offset...



Added: mc/2D/ConMan/trunk/src/gendeck/Makefile-gfort64
===================================================================
--- mc/2D/ConMan/trunk/src/gendeck/Makefile-gfort64	                        (rev 0)
+++ mc/2D/ConMan/trunk/src/gendeck/Makefile-gfort64	2009-03-28 19:04:59 UTC (rev 14520)
@@ -0,0 +1,51 @@
+#
+# Makefile for program to generate ConMan input decks.
+#
+
+PROGRAM= GenDeck
+DESTDIR= $(CONBIN)
+MAIN= gendeck.f
+SUBS=  \
+	corner.f \
+	exist.f \
+	getint.f \
+	gtreal.f \
+	kblnk.f \
+	nblen.f \
+	skpsec.f \
+	velbcf.f \
+	yes.f
+
+SOURCES= $(MAIN) $(SUBS)
+FFLAGS = 
+FC = gfortran
+
+OBJECTS= $(SOURCES:.f=.o)
+DEBUG= $(PROGRAM:%=debug/%)
+VARIANTS.o= $(OBJECTS)
+
+.KEEP_STATE:
+.INIT:
+	-mkdir debug
+
+all: $(PROGRAM)
+debug: $(DEBUG)
+
+$(DEBUG) := FFLAGS= -g
+$(DEBUG) := VARIANTS.o= $(OBJECTS:%=debug/%)
+
+$(PROGRAM) $(DEBUG): $(VARIANTS.o)
+	$(LINK.f) -o $@ $(VARIANTS.o)
+
+debug/%.o: %.f
+	$(COMPILE.f) -o $@ $<
+
+install: $(PROGRAM)
+	mv -f $(PROGRAM) $(DESTDIR)
+	rm -r debug
+
+test: $(PROGRAM)
+	mv -f $(PROGRAM) $(DESTDIR)/$(PROGRAM).test
+
+clean:
+	rm -r $(PROGRAM) $(OBJECTS) debug

Modified: mc/2D/ConMan/trunk/src/gendeck/gendeck.f
===================================================================
--- mc/2D/ConMan/trunk/src/gendeck/gendeck.f	2009-03-28 18:58:18 UTC (rev 14519)
+++ mc/2D/ConMan/trunk/src/gendeck/gendeck.f	2009-03-28 19:04:59 UTC (rev 14520)
@@ -549,7 +549,7 @@
      &                  nsdprt)
       nstprt = getint ('Enter steps between velocity and temp outputs:',
      &                  nstprt)
-      nsmprt = getint ('Enter steps between stress field outputs:      ',   
+      nsmprt = getint ('Enter steps between stress field outputs:     ',   
      &                  nsmprt)
 c
       nsvprt = nstprt