File: dzero.c

package info (click to toggle)
aces3 3.0.6-7
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 82,460 kB
  • sloc: fortran: 225,647; ansic: 20,413; cpp: 4,349; makefile: 953; sh: 137
file content (20 lines) | stat: -rw-r--r-- 283 bytes parent folder | download | duplicates (11) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 

/*
 * This routine zeroes a double array of length elements.
 */

#include "f77_name.h"
#include "f_types.h"

void
F77_NAME(dzero,DZERO)
(double * dArr, f_int * length)
{
    if (*length>0)
    {
        long i;
        for (i=0;i<*length;i++) *(dArr+i) = 0.0;
    }
    return;
}