代码搜索结果

#ifndef lint static char sccsid[] = "@(#)checkcond.c 4.1 (Berkeley) 3/23/83"; #endif not lint # include "trek.h" /* ** Check for Condition After a Move ** ** Various ship conditions are checked. F

#ifndef lint static char sccsid[] = "@(#)checkcond.c 4.1 (Berkeley) 3/23/83"; #endif not lint # include "trek.h" /* ** Check for Condition After a Move ** ** Various ship conditions are checked. F

function [M,e,rho,Ebin] = TM(Eh,bins) % Transition matrix calculation method supplied with SA Tools. % Copyright (c) 2002, by Richard Frost and Frost Concepts. % See http://www.frostconcepts.com/so

% % FUNCTION 2.5 : "cp0201_waveform" % % Generates the energy-normalized pulse waveform % % Special case of the second derivative Gaussian pulse: % SCHOLTZ'S MONOCYCLE % % ********************

% % FUNCTION 2.5 : "cp0201_waveform" % % Generates the energy-normalized pulse waveform % % Special case of the second derivative Gaussian pulse: % SCHOLTZ'S MONOCYCLE % % ********************

//Copyright (C) 2008 Andreas Noack // //This library is free software; you can redistribute it and/or //modify it under the terms of the GNU Lesser General Public //License as published by the Fre

//Copyright (C) 2008 Andreas Noack // //This library is free software; you can redistribute it and/or //modify it under the terms of the GNU Lesser General Public //License as published by the Fre

subroutine IonMolecule( Nc, Xc, Yc, Zc, TYPEc, DAMPc, & Np, Xp, Yp, Zp, TYPEp, DAMPp, & Nham, Niongrs, CHARGE, BoxSize, ENERGY ) implicit none ! This routine calculates the coulo

subroutine RealInteract( Nb, Xb, Yb, Zb, TYPEb, DAMPb, & Nmol, LENGTH, Nham, Niongrs, & CHARGE, BoxSize, Alpha, ENERGY ) implicit none ! This routine calculates the total coulo

subroutine RealMolecule( Nc, Xc, Yc, Zc, TYPEc, DAMPc, & Np, Xp, Yp, Zp, TYPEp, DAMPp, & Nham, Niongrs, CHARGE, BoxSize, Alpha, ENERGY ) implicit none ! This routine calculates