aboutsummaryrefslogtreecommitdiff
path: root/cad/calculix/files/patch-ccx_1.0+src+profil.f
diff options
context:
space:
mode:
Diffstat (limited to 'cad/calculix/files/patch-ccx_1.0+src+profil.f')
-rw-r--r--cad/calculix/files/patch-ccx_1.0+src+profil.f10
1 files changed, 10 insertions, 0 deletions
diff --git a/cad/calculix/files/patch-ccx_1.0+src+profil.f b/cad/calculix/files/patch-ccx_1.0+src+profil.f
new file mode 100644
index 000000000000..67f9efaf6eff
--- /dev/null
+++ b/cad/calculix/files/patch-ccx_1.0+src+profil.f
@@ -0,0 +1,10 @@
+--- ccx_1.0/src/profil.f.orig Sun Jun 22 00:32:56 2003
++++ ccx_1.0/src/profil.f Sun Jun 22 00:38:14 2003
+@@ -31,6 +31,7 @@
+ do 20 i=1,n
+ jstrt=xadj(i)
+ jstop=xadj(i+1)-1
++ if(jstrt.gt.jstop) cycle
+ oldmin=adj(jstrt)
+ newmin=nnn(adj(jstrt))
+ !