program array7
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
IMPLICIT integer (I-N)
integer, parameter :: n = 10
DIMENSION SJ(0:N),DJ(0:N)
end program
