blob: 7ffeacd6497f4d3bbcb4c4d14a4093b3edaf67e8 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
|
*** unix/rpsi2.orig Sat May 25 03:50:02 1991
--- unix/rpsi2 Thu Nov 12 23:41:19 1998
***************
*** 13,79 ****
if ($1 == '-hp') goto noargs
if ($1 == '-ct') goto noargs
echo -n 'no [-ps][-pk][-hp][-ct] options - attempting to run PSI2 '
! /bin/time PSI2 < $1.psi2
else
if ($argv[1] == '-hp') then
echo "Generating contours ... please wait."
! /bin/time PSI2HP < $2.psi2
echo -n "Renaming HP Plotter file to "$2".hpp"
! mv -f fort.10 $2.hpp
echo "Done"
else if ($argv[2] == '-hp') then
echo "Generating contours ... please wait."
! /bin/time PSI2HP < $1.psi2
echo -n "Renaming HP Plotter file to "$1".hpp"
! mv -f fort.10 $1.hpp
echo "Done"
else if ($argv[1] == '-ct') then
echo "Generating contours ... please wait."
! /bin/time PSI2CT < $2.psi2
echo -n "Plotting for ChemText ... "
echo -n "Renaming ChemText Metafile to "$2".met"
! mv -f fort.10 $2.met
echo "Done"
else if ($argv[2] == '-ct') then
echo "Generating contours ... please wait."
! /bin/time PSI2CT < $1.psi2
echo -n "Renaming ChemText Metafile to "$1".met"
mv -f fort.10 $1.met
echo "Done"
else if ($argv[1] == '-pk') then
echo "Generating contours ... please wait."
# setenv OUTPUT_DEVICE PostScript
! /bin/time PSI2PS < $2.psi2
echo -n "Renaming PostScript file to "$2".ps"
mv -f psplot $argv[2].ps
echo "Done"
else if ($argv[2] == '-pk') then
echo "Generating contours ... please wait."
# setenv OUTPUT_DEVICE PostScript
! /bin/time PSI2PS < $1.psi2
echo -n "Renaming PostScript file to "$1".ps"
mv -f psplot $argv[1].ps
echo "Done"
else if ($argv[1] == '-ps') then
echo "Generating contours ... please wait."
setenv OUTPUT_DEVICE PostScript
! /bin/time PSI2 < $2.psi2
#SYSV echo -n "Plotting on the LaserWriter ... ";lp -c /tmp/ps_plot$USER
#SYSV rm -f /tmp/ps_plot$USER
! #BSD echo -n "Plotting on the LaserWriter ... ";lpr -r /tmp/ps_plot$USER
! echo ' edit command file to choose print options, then remove this line'
echo "Done"
else if ($argv[2] == '-ps') then
echo "Generating contours ... please wait."
setenv OUTPUT_DEVICE PostScript
! /bin/time PSI2 < $1.psi2
#SYSV echo -n "Plotting on the LaserWriter ... ";lp -c /tmp/ps_plot$USER
#SYSV rm -f /tmp/ps_plot$USER
! #BSD echo -n "Plotting on the LaserWriter ... ";lpr -r /tmp/ps_plot$USER
! echo ' edit command file to choose print options, then remove this line'
echo "Done"
else
--- 13,83 ----
if ($1 == '-hp') goto noargs
if ($1 == '-ct') goto noargs
echo -n 'no [-ps][-pk][-hp][-ct] options - attempting to run PSI2 '
! time PSI2 < $1.psi2
! # PSI2 is linked to PSI2PS, then output file `psplot' will moved to $argv[1].ps
! echo ': PSI2 is PSI2PS, now'
! mv -f psplot $argv[1].ps
! echo "Done"
else
if ($argv[1] == '-hp') then
echo "Generating contours ... please wait."
! time PSI2HP < $2.psi2
echo -n "Renaming HP Plotter file to "$2".hpp"
! mv -f fort.66 $2.hpp
echo "Done"
else if ($argv[2] == '-hp') then
echo "Generating contours ... please wait."
! time PSI2HP < $1.psi2
echo -n "Renaming HP Plotter file to "$1".hpp"
! mv -f fort.66 $1.hpp
echo "Done"
else if ($argv[1] == '-ct') then
echo "Generating contours ... please wait."
! time PSI2CT < $2.psi2
echo -n "Plotting for ChemText ... "
echo -n "Renaming ChemText Metafile to "$2".met"
! mv -f fort.66 $2.met
echo "Done"
else if ($argv[2] == '-ct') then
echo "Generating contours ... please wait."
! time PSI2CT < $1.psi2
echo -n "Renaming ChemText Metafile to "$1".met"
mv -f fort.10 $1.met
echo "Done"
else if ($argv[1] == '-pk') then
echo "Generating contours ... please wait."
# setenv OUTPUT_DEVICE PostScript
! time PSI2PS < $2.psi2
echo -n "Renaming PostScript file to "$2".ps"
mv -f psplot $argv[2].ps
echo "Done"
else if ($argv[2] == '-pk') then
echo "Generating contours ... please wait."
# setenv OUTPUT_DEVICE PostScript
! time PSI2PS < $1.psi2
echo -n "Renaming PostScript file to "$1".ps"
mv -f psplot $argv[1].ps
echo "Done"
else if ($argv[1] == '-ps') then
echo "Generating contours ... please wait."
setenv OUTPUT_DEVICE PostScript
! time PSI2 < $2.psi2
#SYSV echo -n "Plotting on the LaserWriter ... ";lp -c /tmp/ps_plot$USER
#SYSV rm -f /tmp/ps_plot$USER
! echo -n "Plotting on the LaserWriter ... ";lpr -r /tmp/ps_plot$USER
! #echo ' edit command file to choose print options, then remove this line'
echo "Done"
else if ($argv[2] == '-ps') then
echo "Generating contours ... please wait."
setenv OUTPUT_DEVICE PostScript
! time PSI2 < $1.psi2
#SYSV echo -n "Plotting on the LaserWriter ... ";lp -c /tmp/ps_plot$USER
#SYSV rm -f /tmp/ps_plot$USER
! echo -n "Plotting on the LaserWriter ... ";lpr -r /tmp/ps_plot$USER
! #echo ' edit command file to choose print options, then remove this line'
echo "Done"
else
|
