Ask Your Question

Revision history [back]

click to hide/show revision 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.