NetSolve: A Network Previous: Example: The NetSolve

Example: The NetSolve Fortran Interface

      INTEGER LDA,N
      PARAMETER(LDA = 100, N = 100)
      DOUBLE PRECISION A(LDA,N), R(N),I(N)
      INTEGER REQUEST,ISREADY

      * Blocking Call                
      CALL FNSOLVE('eig',REQUEST,
     $             A,LDA,N,R,I)

      * Asynchronous  Call             
      CALL FNSOLVE_NB('eig',REQUEST,
     $                A,LDA,N,R,I)

...    Some computations

      CALL FNSGET(REQUEST,PROBE,ISREADY)

...    Some computations

      CALL FNSGET(REQUEST,WAIT,ISREADY)