11 files changed, 232 insertions, 0 deletions

diff --git a/externals/grill/vasp/max/vasp.conv b/externals/grill/vasp/max/vasp.conv
new file mode 100755
index 00000000..0d101377
--- /dev/null
+++ b/externals/grill/vasp/max/vasp.conv
@@ -0,0 +1,30 @@
+max v2;
+#N vpatcher 30 70 430 370;
+#P newex 53 224 52 196617 vasp.c!fft;
+#P newex 134 130 62 196617 vasp.sync 2;
+#P newex 150 103 45 196617 vasp.= 0;
+#P newex 151 79 43 196617 vasp.im;
+#P newex 133 157 49 196617 vasp.cfft;
+#P newex 54 198 44 196617 vasp.c*;
+#P newex 54 131 62 196617 vasp.sync 2;
+#P newex 70 104 45 196617 vasp.= 0;
+#P newex 71 80 43 196617 vasp.im;
+#P newex 53 158 49 196617 vasp.cfft;
+#P outlet 52 252 15 0;
+#P inlet 140 51 15 0;
+#P inlet 54 51 15 0;
+#P connect 12 0 2 0;
+#P connect 6 0 3 0;
+#P connect 7 0 12 0;
+#P connect 0 0 6 0;
+#P connect 3 0 7 0;
+#P connect 4 0 5 0;
+#P connect 0 0 4 0;
+#P connect 8 0 7 1;
+#P connect 5 0 6 1;
+#P connect 11 0 8 0;
+#P connect 1 0 11 0;
+#P connect 9 0 10 0;
+#P connect 1 0 9 0;
+#P connect 10 0 11 1;
+#P pop;
diff --git a/externals/grill/vasp/max/vasp.freeze b/externals/grill/vasp/max/vasp.freeze
new file mode 100755
index 00000000..3a5551fa
--- /dev/null
+++ b/externals/grill/vasp/max/vasp.freeze
@@ -0,0 +1,24 @@
+max v2;
+#N vpatcher 40 55 317 473;
+#P outlet 37 328 15 0;
+#P newex 37 292 52 196617 vasp.c!fft;
+#P newex 37 269 51 196617 vasp.rect;
+#P newex 37 246 58 196617 vasp.join 2;
+#P newex 65 214 105 196617 vasp.* 3.141593;
+#P newex 65 190 55 196617 vasp.noise;
+#P newex 37 158 61 196617 vasp.split 2;
+#P newex 37 132 55 196617 vasp.polar;
+#P newex 37 103 49 196617 vasp.cfft;
+#P inlet 37 77 15 0;
+#P comment 35 39 156 196617 Spectral freeze needs real and imaginary vectors;
+#P connect 1 0 2 0;
+#P connect 2 0 3 0;
+#P connect 3 0 4 0;
+#P connect 4 0 7 0;
+#P connect 7 0 8 0;
+#P connect 8 0 9 0;
+#P connect 9 0 10 0;
+#P connect 4 1 5 0;
+#P connect 5 0 6 0;
+#P connect 6 0 7 1;
+#P pop;
diff --git a/externals/grill/vasp/max/vasp.hilbert b/externals/grill/vasp/max/vasp.hilbert
new file mode 100755
index 00000000..3348d665
--- /dev/null
+++ b/externals/grill/vasp/max/vasp.hilbert
@@ -0,0 +1,25 @@
+max v2;
+#N vpatcher 380 246 816 656;
+#P inlet 27 68 15 0;
+#P outlet 27 317 15 0;
+#P newex 27 288 52 196617 vasp.c!fft;
+#P newex 27 263 62 196617 vasp.sync 2;
+#P newex 48 235 45 196617 vasp.= 0;
+#P newex 27 182 49 196617 vasp.cfft;
+#P newex 48 213 55 196617 vasp.upper;
+#P newex 27 154 62 196617 vasp.sync 2;
+#P newex 50 123 45 196617 vasp.= 0;
+#P newex 50 101 43 196617 vasp.im;
+#P comment 17 32 150 196617 Hilbert transformation needs real and complex vectors;
+#P connect 10 0 3 0;
+#P connect 3 0 5 0;
+#P connect 5 0 7 0;
+#P connect 7 0 8 0;
+#P connect 8 0 9 0;
+#P connect 5 0 4 0;
+#P connect 4 0 6 0;
+#P connect 10 0 1 0;
+#P connect 1 0 2 0;
+#P connect 2 0 3 1;
+#P connect 6 0 7 1;
+#P pop;
diff --git a/externals/grill/vasp/max/vasp.im b/externals/grill/vasp/max/vasp.im
new file mode 100755
index 00000000..f7a271f5
--- /dev/null
+++ b/externals/grill/vasp/max/vasp.im
@@ -0,0 +1,8 @@
+max v2;
+#N vpatcher 681 58 1081 358;
+#P outlet 33 86 15 0;
+#P newex 35 57 45 196617 vasp.n 1;
+#P inlet 36 33 15 0;
+#P connect 1 0 2 0;
+#P connect 0 0 1 0;
+#P pop;
diff --git a/externals/grill/vasp/max/vasp.lower b/externals/grill/vasp/max/vasp.lower
new file mode 100755
index 00000000..3cd170c5
--- /dev/null
+++ b/externals/grill/vasp/max/vasp.lower
@@ -0,0 +1,18 @@
+max v2;
+#N vpatcher 40 55 215 336;
+#P newex 53 156 32 196617 + 0.9;
+#P newex 14 180 64 196617 vasp.frames;
+#P newex 53 135 27 196617 / 2;
+#P newex 53 110 70 196617 vasp.frames?;
+#P newex 14 79 64 196617 vasp.multi 2;
+#P outlet 14 208 15 0;
+#P inlet 15 54 15 0;
+#P comment 16 34 100 196617 lower half of a vasp;
+#P connect 1 0 3 0;
+#P connect 3 0 6 0;
+#P connect 6 0 2 0;
+#P connect 3 1 4 0;
+#P connect 4 0 5 0;
+#P connect 5 0 7 0;
+#P connect 7 0 6 1;
+#P pop;
diff --git a/externals/grill/vasp/max/vasp.opt b/externals/grill/vasp/max/vasp.opt
new file mode 100755
index 00000000..24b1bbdc
--- /dev/null
+++ b/externals/grill/vasp/max/vasp.opt
@@ -0,0 +1,31 @@
+max v2;
+#N vpatcher 40 55 440 355;
+#P newex 14 62 44 196617 route to;
+#P outlet 228 266 15 0;
+#P newex 119 101 60 196617 prepend set;
+#P newex 159 226 38 196617 vasp./;
+#P newex 174 170 27 196617 t b f;
+#P newex 138 169 20 196617 t b;
+#P newex 138 140 50 196617 route 0 1;
+#P newex 119 226 32 196617 vasp;
+#P newex 48 101 62 196617 vasp.amax?;
+#P outlet 142 265 15 0;
+#P inlet 14 30 15 0;
+#P connect 0 0 10 0;
+#P connect 10 1 2 0;
+#P connect 10 1 8 0;
+#P fasten 8 0 3 0 124 172 124 172;
+#P fasten 10 0 3 0 19 218 124 218;
+#P connect 5 0 3 0;
+#P fasten 2 1 4 0 105 129 143 129;
+#P connect 4 0 5 0;
+#P connect 4 1 5 0;
+#P connect 7 0 1 0;
+#P connect 3 0 1 0;
+#P fasten 8 0 7 0 124 202 164 202;
+#P connect 6 0 7 0;
+#P fasten 10 0 7 0 19 218 164 218;
+#P connect 4 2 6 0;
+#P connect 6 1 7 1;
+#P fasten 2 1 9 0 105 129 233 129;
+#P pop;
diff --git a/externals/grill/vasp/max/vasp.pwrap b/externals/grill/vasp/max/vasp.pwrap
new file mode 100755
index 00000000..9e6e71fa
--- /dev/null
+++ b/externals/grill/vasp/max/vasp.pwrap
@@ -0,0 +1,12 @@
+max v2;
+#N vpatcher 40 55 440 355;
+#P newex 50 149 85 196617 vasp.- 3.141593;
+#P newex 50 120 101 196617 vasp.% 6.283185;
+#P newex 50 88 134 196617 vasp.+ 3.141593;
+#P outlet 50 223 15 0;
+#P inlet 50 49 15 0;
+#P connect 0 0 2 0;
+#P connect 2 0 3 0;
+#P connect 3 0 4 0;
+#P connect 4 0 1 0;
+#P pop;
diff --git a/externals/grill/vasp/max/vasp.re b/externals/grill/vasp/max/vasp.re
new file mode 100755
index 00000000..4acdea90
--- /dev/null
+++ b/externals/grill/vasp/max/vasp.re
@@ -0,0 +1,8 @@
+max v2;
+#N vpatcher 681 58 1081 358;
+#P outlet 33 86 15 0;
+#P newex 35 57 45 196617 vasp.n 0;
+#P inlet 36 33 15 0;
+#P connect 1 0 2 0;
+#P connect 0 0 1 0;
+#P pop;
diff --git a/externals/grill/vasp/max/vasp.ropt b/externals/grill/vasp/max/vasp.ropt
new file mode 100755
index 00000000..b3db78d4
--- /dev/null
+++ b/externals/grill/vasp/max/vasp.ropt
@@ -0,0 +1,31 @@
+max v2;
+#N vpatcher 425 221 825 521;
+#P newex 23 59 44 196617 route to;
+#P outlet 248 255 15 0;
+#P newex 128 91 60 196617 prepend set;
+#P newex 169 216 43 196617 vasp.c/;
+#P newex 184 160 27 196617 t b f;
+#P newex 147 159 20 196617 t b;
+#P newex 147 130 50 196617 route 0 1;
+#P newex 128 216 32 196617 vasp;
+#P newex 57 91 62 196617 vasp.rmax?;
+#P outlet 151 255 15 0;
+#P inlet 21 29 15 0;
+#P connect 0 0 10 0;
+#P connect 10 1 2 0;
+#P connect 10 1 8 0;
+#P fasten 10 0 3 0 28 209 133 209;
+#P connect 5 0 3 0;
+#P fasten 8 0 3 0 133 162 133 162;
+#P fasten 2 1 4 0 114 119 152 119;
+#P connect 4 0 5 0;
+#P connect 4 1 5 0;
+#P connect 7 0 1 0;
+#P connect 3 0 1 0;
+#P connect 6 0 7 0;
+#P fasten 8 0 7 0 133 194 174 194;
+#P fasten 10 0 7 0 28 209 174 209;
+#P connect 4 2 6 0;
+#P connect 6 1 7 1;
+#P fasten 2 1 9 0 114 119 253 119;
+#P pop;
diff --git a/externals/grill/vasp/max/vasp.spin b/externals/grill/vasp/max/vasp.spin
new file mode 100755
index 00000000..ebc2a1ff
--- /dev/null
+++ b/externals/grill/vasp/max/vasp.spin
@@ -0,0 +1,24 @@
+max v2;
+#N vpatcher 448 294 770 681;
+#P newex 50 145 60 196617 vasp.pwrap;
+#P outlet 24 268 15 0;
+#P inlet 25 56 15 0;
+#P newex 24 232 51 196617 vasp.rect;
+#P newex 25 210 58 196617 vasp.join 2;
+#P newex 49 187 44 196617 vasp.int;
+#P newex 50 167 55 196617 vasp.* $1;
+#P newex 50 123 44 196617 vasp.dif;
+#P newex 25 81 55 196617 vasp.polar;
+#P newex 25 101 61 196617 vasp.split 2;
+#P comment 26 31 203 196617 multiply phase velocity by argument factor;
+#P connect 6 0 7 0;
+#P connect 7 0 9 0;
+#P connect 8 0 2 0;
+#P connect 2 0 1 0;
+#P connect 1 0 6 0;
+#P connect 4 0 5 0;
+#P connect 1 1 3 0;
+#P connect 3 0 10 0;
+#P connect 10 0 4 0;
+#P connect 5 0 6 1;
+#P pop;
diff --git a/externals/grill/vasp/max/vasp.upper b/externals/grill/vasp/max/vasp.upper
new file mode 100755
index 00000000..1c24882b
--- /dev/null
+++ b/externals/grill/vasp/max/vasp.upper
@@ -0,0 +1,21 @@
+max v2;
+#N vpatcher 40 55 353 400;
+#P newex 37 212 64 196617 vasp.frames;
+#P newex 37 183 65 196617 vasp.offset+;
+#P newex 74 159 32 196617 + 0.9;
+#P newex 117 131 27 196617 / 2;
+#P newex 77 106 70 196617 vasp.frames?;
+#P newex 38 75 64 196617 vasp.multi 2;
+#P outlet 36 257 15 0;
+#P inlet 39 50 15 0;
+#P comment 74 42 100 196617 upper half of a vasp;
+#P connect 8 0 2 0;
+#P connect 3 0 7 0;
+#P connect 7 0 8 0;
+#P connect 1 0 3 0;
+#P connect 5 0 6 0;
+#P connect 3 1 4 0;
+#P connect 5 0 8 1;
+#P connect 6 0 7 1;
+#P connect 4 0 5 0;
+#P pop;