Demo entry 3548137

cosa

   

Submitted by anonymous on Jan 13, 2016 at 12:52
Language: Fortran. Code size: 344 Bytes.

! My first module
!

MODULE constantes

   IMPLICIT NONE

   SAVE ! Todos los procedimientos que utilicen este módulo van a usar la misma copia de todas las constantes y variables

   INTEGER, parameter, public          :: dp = kind(1.0d0)
   REAL(kind=dp), parameter, public    :: pi=3.141592653589793238462643383279_dp

END MODULE constantes

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).