File: vranf.f

package info (click to toggle)
tela 1.28-2
  • links: PTS
  • area: main
  • in suites: slink
  • size: 6,596 kB
  • ctags: 5,519
  • sloc: ansic: 14,013; cpp: 13,376; lex: 1,651; fortran: 1,048; yacc: 834; sh: 715; makefile: 464
file content (21 lines) | stat: -rw-r--r-- 448 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
c/*
c * This file is part of tela the Tensor Language.
c * Copyright (c) 1994-1996 Pekka Janhunen
c */

c The Cray C compiler cannot vectorize RANF loops
c thus we need Fortran.

c This routine can be called from C++ as follows:
c extern "C" void VRANF(double a[], int *n)
c ...
      subroutine vranf(a,n)
      implicit none
      integer n
      real a(n)
      integer i
      do i=1,n
         a(i) = RANF()
      enddo
      return
      end