The missmatch in common block size indicates that some reference are most likely double precision and some other are not. Does the source code have something like implicit double precision mentioned? If the libraries you call are single precision (while they were double before you changed them)...
That should work. However, it could be streamlined a little.
For instance, each time you are checking if the value is less or equal than a threshold, you do not need to check if it is above the other threshold value, since it already passed that test on the previous statements.
Basically, you...
Presumably, "Pend.exe" accepts the input file name as an input parameter?
Then the best way is to use a OS command to list the files that are intended inputs, save the result of the list into a file, edit the file to add the Pend.exe command before each file name, and convert the resulting file...
You are making it awfully hard on yourself.
First, let's note that you need to initialize the "bin" values to zero. But the real time saver for you would be to combine all the "bin" in a single array:
INTEGER bin(20)
INTEGER i,a
REAL x
DO i=1,20
bin(i)=0
ENDDO
then it is a matter of doing...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.