ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE-2.0/src/UseTheForce/DarkSide/dipole_interface.h
Revision: 1633
Committed: Fri Oct 22 20:22:48 2004 UTC (19 years, 8 months ago) by gezelter
Content type: text/plain
File size: 496 byte(s)
Log Message:
Added un-busticated fortran files and c/Fortran interfaces

File Contents

# User Rev Content
1 gezelter 1633 /*
2     * dipole_interface.h
3     * oopse
4     *
5     * Created by Charles Vardeman II on 10/21/04.
6     * Copyright 2004 University of Notre Dame. All rights reserved.
7     *
8     */
9    
10    
11    
12    
13     #ifndef USETHEFORCE_DARKSIDE_DIPOLE_INTERFACE_H
14     #define USETHEFORCE_DARKSIDE_DIPOLE_INTERFACE_H
15    
16     #define __C
17    
18     #include "config.h"
19    
20     #define newDipoleType F90_FUNC(newdipoletype, NEWDIPOLETYPE)
21    
22     extern "C"{
23     void newDipoleType( int* ident,
24     double* dipole_moment,
25     int* status);
26     }
27     #endif
28