Candidate_v1.6.1
Rev | Line | |
---|
[0b990d] | 1 | /*
|
---|
| 2 | * bzerofast.c
|
---|
| 3 | *
|
---|
| 4 | * Copyright (C) 1996 Limit Point Systems, Inc.
|
---|
| 5 | *
|
---|
| 6 | * Author: Ida Nielsen <ibniels@ca.sandia.gov>
|
---|
| 7 | * Maintainer: LPS
|
---|
| 8 | *
|
---|
| 9 | * This file is part of the SC Toolkit.
|
---|
| 10 | *
|
---|
| 11 | * The SC Toolkit is free software; you can redistribute it and/or modify
|
---|
| 12 | * it under the terms of the GNU Library General Public License as published by
|
---|
| 13 | * the Free Software Foundation; either version 2, or (at your option)
|
---|
| 14 | * any later version.
|
---|
| 15 | *
|
---|
| 16 | * The SC Toolkit is distributed in the hope that it will be useful,
|
---|
| 17 | * but WITHOUT ANY WARRANTY; without even the implied warranty of
|
---|
| 18 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
---|
| 19 | * GNU Library General Public License for more details.
|
---|
| 20 | *
|
---|
| 21 | * You should have received a copy of the GNU Library General Public License
|
---|
| 22 | * along with the SC Toolkit; see the file COPYING.LIB. If not, write to
|
---|
| 23 | * the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
|
---|
| 24 | *
|
---|
| 25 | * The U.S. Government is granted a limited license as per AL 91-7.
|
---|
| 26 | */
|
---|
| 27 |
|
---|
| 28 | #include <chemistry/qc/mbpt/bzerofast.h>
|
---|
| 29 |
|
---|
| 30 | /* Commented out this version since the compiler
|
---|
| 31 | * cannot handle it */
|
---|
| 32 | /*int bzerofast(double *d, int dimension)
|
---|
| 33 | {
|
---|
| 34 | int i;
|
---|
| 35 |
|
---|
| 36 | for (i=dimension; i; i--) {
|
---|
| 37 | *d++ = 0.0;
|
---|
| 38 | }
|
---|
| 39 |
|
---|
| 40 | return(0);
|
---|
| 41 | } */
|
---|
| 42 | int bzerofast(double *d, int dimension)
|
---|
| 43 | {
|
---|
| 44 | int i;
|
---|
| 45 |
|
---|
| 46 | for (i=0; i<dimension; i++) {
|
---|
| 47 | *d++ = 0.0;
|
---|
| 48 | }
|
---|
| 49 |
|
---|
| 50 | return(0);
|
---|
| 51 | }
|
---|
| 52 |
|
---|
| 53 | /* Local Variables:
|
---|
| 54 | * mode: c++
|
---|
| 55 | * eval: (c-set-style "CLJ-CONDENSED")
|
---|
| 56 | * End:
|
---|
| 57 | */
|
---|
Note:
See
TracBrowser
for help on using the repository browser.