fork download
copy 
  1. !gfortran, gcc version 7.4.0
  2. PROGRAM WILK
  3.  
  4. PARAMETER (MDIM=5)
  5. REAL M(MDIM, MDIM)
  6. INTEGER N
  7.  
  8. !DATA M(I,I), I=1,MDIM)/MDIM*0/ 
  9.  
  10. !PRINT *, "Wilkinson Matrix"
  11. !PRINT *, "INSERISCI L'ORDINE: "
  12. !READ(*,*) N
  13. N = 5
  14.  
  15. DO I=0, N
  16.     DO J=0, N
  17.         M(I,J) = 0
  18.     END DO
  19. END DO
  20.  
  21.  
  22. WRITE(*,*) M
  23.  
  24. END PROGRAM
Success #stdin #stdout 0.01s 5396KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00
https://ideone.com/GeH906
language:
Fortran (gfortran 8.3)
created:
1 year ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!