ADAS Subroutine spij3
SUBROUTINE SPIJ3(N,H,W) C IMPLICIT REAL*8(A-H,O-Z) C C----------------------------------------------------------------------- C C ****************** FORTRAN77 SUBROUTINE: SPIJ3 ********************** C C PURPOSE UNKNOWN C C NOTES: THIS ROUTINE IS NOT YET PROPERLY ANNOTATED C C UNIX-IDL PORT: C C VERSION: 1.1 DATE: 18-1-96 C MODIFIED: TIM HAMMOND (TESSELLA SUPPORT SERVICES PLC) C - PUT UNDER SCCS CONTROL C C----------------------------------------------------------------------- C INTEGER N REAL*8 H(10), W(10,10)