From fbb5697a4a6a30e0b6ec590f78bf34d2ceed9fa0 Mon Sep 17 00:00:00 2001
From: Tjerk Straatsma <straatsmatp@ornl.gov>
Date: Wed, 29 Mar 2000 18:41:22 +0000
Subject: [PATCH] Add planar pmf

---
 src/prepar/pre_mknoe.F | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/prepar/pre_mknoe.F b/src/prepar/pre_mknoe.F
index ff8ba6d492..9b7fc5213b 100644
--- a/src/prepar/pre_mknoe.F
+++ b/src/prepar/pre_mknoe.F
@@ -1,7 +1,7 @@
       logical function pre_mknoe(lfnout,lfntop,filtop,lfncmd,filcmd,
      + lfnnoe,filnoe,mnoe,lfnpmf,filpmf)
 c
-c $Id: pre_mknoe.F,v 1.6 2000-03-29 17:46:58 d3j191 Exp $
+c $Id: pre_mknoe.F,v 1.7 2000-03-29 18:41:22 d3j191 Exp $
 c
       implicit none
 c
@@ -173,6 +173,7 @@ c
       if(card(5:8).eq.'angl') ipmf(numpmf,1)=2
       if(card(5:8).eq.'tors') ipmf(numpmf,1)=3
       if(card(5:8).eq.'line') ipmf(numpmf,1)=5
+      if(card(5:8).eq.'plan') ipmf(numpmf,1)=6
       read(card(9:76),'(4i5,2f12.6,2e12.5)')
      + (ipmf(numpmf,i),i=2,5),(rpmf(numpmf,i),i=1,4)
       endif