Manual Reference Pages  - system_rand (3m_system)

NAME
system_rand(3f) - [M_system:PSEUDORANDOM] call pseudo-random number generator rand(3c) (LICENSE:PD)

CONTENTS

Synopsis
Description
Examples

SYNOPSIS
integer(kind=c_int) :: function system_rand()

DESCRIPTION
Use rand(3c) to generate pseudo-random numbers.

EXAMPLES
Sample program: 

      program demo_system_rand
      use M_system, only : system_srand, system_rand
      implicit none
      integer :: i


      call system_srand(1001)
      do i=1,10
         write(*,*)system_rand()
      enddo
      write(*,*)


      end program demo_system_rand
Results: 

 >   1828856591
 >    238982045
 >    764441674
 >    195845482
 >   1154046339
 >   2054478192
 >   1697119394
 >    233976085
 >   1369589941
 >   2011286580
 >

Nemo Release 3.1 system_rand (3m_system) March 07, 2025
Generated by manServer 1.08 from 5543dcf3-8647-41db-832e-39019ed1eab6 using man macros.