src/orient.F90: trivial change
authorAnthony Stone <ajs1@cam.ac.uk>
Tue, 11 Sep 2018 14:43:05 +0000 (15:43 +0100)
committerAnthony Stone <ajs1@cam.ac.uk>
Tue, 11 Sep 2018 14:43:05 +0000 (15:43 +0100)
src/orient.F90

index 804f831..3241a20 100644 (file)
@@ -404,13 +404,11 @@ do
           if (m == 0) call die("No molecule specified",.true.)
           call inertia(m,print=.true.)
         case default
-          call reread(-1)
-          call reada(word)
           m = locate(word)
         end select
       end do
 
-    case("POLARIZABILITIES","POLARISABILITIES")
+    case("POLARIZABILITIES","POLARISABILITIES", "POLARIZABILITY", "POLARISABILITY")
       if (switch(10)) then
         print "(/A/)", "WARNING -- polarizability directive ignored"
         do while (word .ne. "END")