Error: Rank mismatch in argument (rank-1 and scalar)
<p>I am getting these kind of errors. </p>

<pre><code>colsys.f:1367.51:

     1          NOLD, ALDIF, K, NCOMP, M, MSTAR, 3,DUMM,0)              
                                                   1
Warning: Rank mismatch in argument 'dmval' at (1) (rank-1 and scalar)
colsys.f:814.33:

     1          EALPHA, A, IPIV, INTEGS, RNORM, 0, FSUB,                
                                 1
Warning: Actual argument contains too few elements for dummy argument 'integs' (1/3) at (1)
</code></pre>

<p>Here I an giving the program link. More errors are there in the link provided below. Some of the errors I fixed. But I don't know how to attach the updated program since it is too long to copy and paste.</p>

<p><a href="http://www4.ncsu.edu/~mtchu/Teaching/Lectures/MA581/colsys.f" rel="nofollow noreferrer">http://www4.ncsu.edu/~mtchu/Teaching/Lectures/MA581/colsys.f</a></p>