Updates for gfortran 11

2022-09-16 14:05:42 +00:00
parent 230d1e7050
commit 561e715efd
4 changed files with 59 additions and 55 deletions
@@ -723,7 +723,8 @@
     &fvector,gvector,sumsquare)
        call properties_surffunc(5,beta,starco2i(i),der_starco2i(i),
     &Amax_ACi(i),ACiinter(i),der_ACiinter(i),
-     &ACipco2i(nACiPoints(i):nACiPoints(i),i:i),der_ACiend(i),term,
+     &ACipco2i(nACiPoints(i),i),der_ACiend(i),term,
+!     &ACipco2i(nACiPoints(i):nACiPoints(i),i:i),der_ACiend(i),term,
     &ACipco2i(1:1,i:i),ACipco2i(nACiPoints(i):nACiPoints(i),i:i),
     &ACimaxcurvature(i),ACimaxcurvpco2i(i))
        if(n.ge.5)then