![]() | 1 | initial version |
The following Fortran-90 code works:
integer :: IERR, IARRAY(99), TDIM=99
REAL :: RXVALUE
CALL FINDSHORTESTDISTANCEBETWEENTWOBUS(0, 101, 3001, TDIM, IARRAY,RXVALUE, IERR)
Note that IARRAY must have the length of TDIM. You shouldn't set TDIM to 9999 and the array to length 6.
I also noted that TDIM must be a variable, not hard coded.