Mostrando entradas con la etiqueta fortran90. Mostrar todas las entradas
Mostrando entradas con la etiqueta fortran90. Mostrar todas las entradas

lunes, 29 de febrero de 2016

COMPUTER SIMULATION OF LIQUIDS, M.P. ALLEN, montecarlo

[roberto@nautilus tools]$ rpm
   RPM version 4.0.4
   Copyright (C) 1998-2000 - Red Hat, Inc.
   This program may be freely redistributed under the terms of the GNU GPL

Usage: rpm {--help}
rpm {--version}
[roberto@nautilus tools]$ rpm nmap*.rpm
   RPM version 4.0.4
   Copyright (C) 1998-2000 - Red Hat, Inc.
   This program may be freely redistributed under the terms of the GNU GPL

Usage: rpm {--help}
rpm {--version}
[roberto@nautilus tools]$ rpm --help
Usage: rpm [OPTION...]

   Query options (with -q or --query):
   -c, --configfiles                list all configuration files
   -d, --docfiles                   list all documentation files
   --dump                           dump basic file information
   -l, --list                       list files in package
   --queryformat=QUERYFORMAT        use the following query format
-s, --state                      display the states of the listed files
-v, --verbose                    display a verbose file listing
-a, --all                        query/verify all packages
-f, --file                       query/verify package(s) owning file
-g, --group                      query/verify package(s) in group
-p, --package                    query/verify a package file (i.e. a binary
*.rpm file)
--querytags                      display known query tags
--specfile                       query a spec file
--whatrequires                   query/verify the package(s) which require a
dependency
--whatprovides                   query/verify the package(s) which provide a
dependency

Verify options (with -V or --verify):
--nomd5[|=0x1]                   don't verify MD5 digest of files
   --nofiles[|=0x10000]             don't verify files in package
   --nodeps[|=0x20000]              don't verify package dependencies
   --noscript[|=0x40000]            don't execute %verifyscript (if any)
   -a, --all                        query/verify all packages
   -f, --file                       query/verify package(s) owning file
   -g, --group                      query/verify package(s) in group
   -p, --package                    query/verify a package file (i.e. a binary
*.rpm file)
   --querytags                      display known query tags
   --specfile                       query a spec file
   --whatrequires                   query/verify the package(s) which require a
   dependency
   --whatprovides                   query/verify the package(s) which provide a
   dependency

   Signature options:
   --addsign                        add a signature to a package
   --resign                         sign a package (discard current signature)
   -K, --checksig                   verify package signature
   --nogpg[&=~0x4]                  skip any GPG signatures
--nomd5[&=~0x2]                  do not verify file md5 checksums

  Database options:
  --initdb                         initialize database
  --rebuilddb                      rebuild database inverted lists from
  installed package headers

  Install/Upgrade/Erase options:
  --allfiles[|=0x40]               install all files, even configurations
which might otherwise be skipped
--allmatches[|=0x2]              remove all packages which match <package>
(normally an error is generated if
<package> specified multiple packages)
--badreloc[|=0x8]                relocate files in non-relocateable package
-e, --erase=<package>+           erase (uninstall) package
--excludedocs[|=0x20]            do not install documentation
--excludepath=<path>             skip files with leading component <path>
--force[|=0x74]                  short hand for --replacepkgs --replacefiles
 -F, --freshen=<packagefile>+     upgrade package(s) if already installed
-h, --hash[|=0x2]                print hash marks as package installs (good
with -v)
--ignorearch[|=0x2]              don't verify package architecture
   --ignoreos[|=0x1]                don't verify package operating system
   --ignoresize[|=0x180]            don't check disk space before installing
   --includedocs                    install documentation
   --install=<packagefile>+         install package
--justdb[|=0x8]                  update the database, but do not modify the
filesystem
--nodeps                         do not verify package dependencies
--noorder[|=0x8]                 do not reorder package installation to
satisfy dependencies
--noscripts[|=0xff0000]          do not execute package scriptlet(s)
--notriggers[|=0x990000]         do not execute any scriptlet(s) triggered
  by this package
  --oldpackage[|=0x40]             upgrade to an old version of the package
 (--force on upgrades does this
  automatically)
 --percent[|=0x1]                 print percentages as package installs
 --prefix=<dir>                   relocate the package to <dir>, if
relocatable
--relocate=<old>=<new>           relocate files from path <old> to <new>
  --repackage[|=0x400]             save erased package files by repackaging
--replacefiles[|=0x30]           install even if the package replaces
 installed files
 --replacepkgs[|=0x4]             reinstall if the package is already present
--test[|=0x1]                    don't install, but tell if it would work or
   not
   -U, --upgrade=<packagefile>+     upgrade package(s)

Common options for all rpm modes:
--version                        print the version of rpm being used
--quiet                          provide less detailed output
-v, --verbose                    provide more detailed output
--define='<name> <body>'         define macro <name> with value <body>
 --eval=<expr>+                   print macro expansion of <expr>+
-r, --root=<dir>                 use <dir> as the top level directory
(default: "/")
--macros=<file:...>              read <file:...> instead of default macro
file(s)
--rcfile=<file:...>              read <file:...> instead of default rpmrc
file(s)
--showrc                         display final rpmrc and macro configuration

Options implemented via popt alias/exec:
--scripts                        list install/erase scriptlets from
package(s)
--setperms                       set permissions of files in a package
--setugids                       set user/group ownership of files in a
package
--conflicts                      list capabilities this package conflicts
with
--obsoletes                      list other packages removed by installing
this package
--provides                       list capabilities that this package provides
--requires                       list capabilities required by package(s)
--info                           list descriptive information from package(s)
--changelog                      list change logs for this package
--triggers                       list trigger scriptlets from package(s)
--last                           list package(s) by install time, most
recent first
--filesbypkg                     list all files from each package
--redhatprovides                 find package name that contains a provided
capability (needs rpmdb-redhat package
installed)
--redhatrequires                 find package name that contains a required
capability (needs rpmdb-redhat package
installed)
--buildpolicy=<policy>           set buildroot <policy> (e.g. compress man
  pages)
  --with=<option>                  enable configure <option> for build
 --without=<option>               disable configure <option> for build

Help options:
-?, --help                       Show this help message
--usage                          Display brief usage message


unexpected token `file)'
[roberto@nautilus tools]$   --querytags                      display known query tags
bash: --querytags: command not found
[roberto@nautilus tools]$   --specfile                       query a spec file
bash: --specfile: command not found
[roberto@nautilus tools]$   --whatrequires                   query/verify the package(s) which require a
bash: syntax error near unexpected token `package(s'
[roberto@nautilus tools]$                                    dependency
bash: dependency: command not found
[roberto@nautilus tools]$   --whatprovides                   query/verify the package(s) which provide a
bash: syntax error near unexpected token `package(s'
[roberto@nautilus tools]$                                    dependency
bash: dependency: command not found
[roberto@nautilus tools]$
[roberto@nautilus tools]$ Signature options:
bash: Signature: command not found
[roberto@nautilus tools]$   --addsign                        add a signature to a package
bash: --addsign: command not found
[roberto@nautilus tools]$   --resign                         sign a package (discard current signature)
bash: syntax error near unexpected token `(d'
[roberto@nautilus tools]$   -K, --checksig                   verify package signature
bash: -K,: command not found
[roberto@nautilus tools]$   --nogpg[&=~0x4]                  skip any GPG signatures
bash: --nogpg[: command not found
[1] 10542
bash: =~0x4]: command not found
[1]+  Exit 127                --nogpg[
[roberto@nautilus tools]$   --nomd5[&=~0x2]                  do not verify file md5 checksums
bash: --nomd5[: command not found
[1] 10544
bash: =~0x2]: command not found
[1]   Exit 127                --nomd5[
[roberto@nautilus tools]$
[roberto@nautilus tools]$ Database options:
bash: Database: command not found
[roberto@nautilus tools]$   --initdb                         initialize database
bash: --initdb: command not found
[roberto@nautilus tools]$   --rebuilddb                      rebuild database inverted lists from
bash: --rebuilddb: command not found
[roberto@nautilus tools]$                                    installed package headers
bash: installed: command not found
[roberto@nautilus tools]$
[roberto@nautilus tools]$ Install/Upgrade/Erase options:
bash: Install/Upgrade/Erase: No such file or directory
[roberto@nautilus tools]$   --allfiles[|=0x40]               install all files, even configurations
bash: --allfiles[: command not found
bash: =0x40]: command not found
[roberto@nautilus tools]$                                    which might otherwise be skipped
/usr/bin/which: no might in (/usr/local/bin:/bin:/usr/bin:/usr/X11R6/bin:/usr/local/grace/bin/:/home/roberto/bin)
/usr/bin/which: no otherwise in (/usr/local/bin:/bin:/usr/bin:/usr/X11R6/bin:/usr/local/grace/bin/:/home/roberto/bin)
/usr/bin/which: no be in (/usr/local/bin:/bin:/usr/bin:/usr/X11R6/bin:/usr/local/grace/bin/:/home/roberto/bin)
/usr/bin/which: no skipped in (/usr/local/bin:/bin:/usr/bin:/usr/X11R6/bin:/usr/local/grace/bin/:/home/roberto/bin)
[roberto@nautilus tools]$   --allmatches[|=0x2]              remove all packages which match <package>
bash: syntax error near unexpected token `<package>'
[roberto@nautilus tools]$                                    (normally an error is generated if
>                                    <package> specified multiple packages)
bash: normally: command not found
bash: package: No such file or directory
[roberto@nautilus tools]$   --badreloc[|=0x8]                relocate files in non-relocateable package
bash: --badreloc[: command not found
bash: =0x8]: command not found
[roberto@nautilus tools]$   -e, --erase=<package>+           erase (uninstall) package
bash: syntax error near unexpected token `(u'
[roberto@nautilus tools]$   --excludedocs[|=0x20]            do not install documentation
bash: --excludedocs[: command not found
bash: =0x20]: command not found
[roberto@nautilus tools]$   --excludepath=<path>             skip files with leading component <path>
bash: syntax error near unexpected token `<path>'
[roberto@nautilus tools]$   --force[|=0x74]                  short hand for --replacepkgs --replacefiles
bash: --force[: command not found
bash: =0x74]: command not found
[roberto@nautilus tools]$   -F, --freshen=<packagefile>+     upgrade package(s) if already installed
bash: syntax error near unexpected token `package(s'
[roberto@nautilus tools]$   -h, --hash[|=0x2]                print hash marks as package installs (good
bash: syntax error near unexpected token `(g'
[roberto@nautilus tools]$     ed output
output: No such file or directory

?
[roberto@nautilus tools]$ who
roberto  pts/0    Jun 20 18:29
[roberto@nautilus tools]$ ls
dumpacl.zip             john-16w.zip    nmap-2.53-1.i386.rpm         pwdump2.zip
firewalk-0.99.1.tar.gz  lc3setup01.exe  nvx005.zip                   sid.zip
foundstone tools        Mis documentos  pandora_linux_v4.0_b2.1.tgz  thcscan.zip
icmpquery.c.txt         Mis imágenes    pan_online_95_b2.zip         whisker.zip
john-1.6.tar.gz         nessus          pan_online_nt_b2.zip
[roberto@nautilus tools]$ tar
tar: You must specify one of the `-Acdtrux' options
Try `tar --help' for more information.
[roberto@nautilus tools]$ tar --help
GNU `tar' saves many files together into a single tape or disk archive, and
can restore individual files from the archive.

Usage: tar [OPTION]... [FILE]...

Examples:
  tar -cf archive.tar foo bar  # Create archive.tar from files foo and bar.
  tar -tvf archive.tar         # List all files in archive.tar verbosely.
  tar -xf archive.tar          # Extract all files from archive.tar.

If a long option shows an argument as mandatory, then it is mandatory
for the equivalent short option also.  Similarly for optional arguments.

Main operation mode:
  -t, --list              list the contents of an archive
  -x, --extract, --get    extract files from an archive
  -c, --create            create a new archive
  -d, --diff, --compare   find differences between archive and file system
  -r, --append            append files to the end of an archive
  -u, --update            only append files newer than copy in archive
  -A, --catenate          append tar files to an archive
      --concatenate       same as -A
      --delete            delete from the archive (not on mag tapes!)

Operation modifiers:
  -W, --verify               attempt to verify the archive after writing it
      --remove-files         remove files after adding them to the archive
  -k, --keep-old-files       don't replace existing files when extracting
      --overwrite            overwrite existing files when extracting
      --overwrite-dir        overwrite directory metadata when extracting
  -U, --unlink-first         remove each file prior to extracting over it
      --recursive-unlink     empty hierarchies prior to extracting directory
  -S, --sparse               handle sparse files efficiently
  -O, --to-stdout            extract files to standard output
  -G, --incremental          handle old GNU-format incremental backup
  -g, --listed-incremental=FILE
                             handle new GNU-format incremental backup
      --ignore-failed-read   do not exit with nonzero on unreadable files

Handling of file attributes:
      --owner=NAME             force NAME as owner for added files
      --group=NAME             force NAME as group for added files
      --mode=CHANGES           force (symbolic) mode CHANGES for added files
      --atime-preserve         don't change access times on dumped files
  -m, --modification-time      don't extract file modified time
      --same-owner             try extracting files with the same ownership
      --no-same-owner          extract files as yourself
      --numeric-owner          always use numbers for user/group names
  -p, --same-permissions       extract permissions information
      --no-same-permissions    do not extract permissions information
      --preserve-permissions   same as -p
  -s, --same-order             sort names to extract to match archive
      --preserve-order         same as -s
      --preserve               same as both -p and -s

Device selection and switching:
  -f, --file=ARCHIVE             use archive file or device ARCHIVE
      --force-local              archive file is local even if has a colon
      --rsh-command=COMMAND      use remote COMMAND instead of rsh
  -[0-7][lmh]                    specify drive and density
  -M, --multi-volume             create/list/extract multi-volume archive
  -L, --tape-length=NUM          change tape after writing NUM x 1024 bytes
  -F, --info-script=FILE         run script at end of each tape (implies -M)
      --new-volume-script=FILE   same as -F FILE
      --volno-file=FILE          use/update the volume number in FILE

Device blocking:
  -b, --blocking-factor=BLOCKS   BLOCKS x 512 bytes per record
      --record-size=SIZE         SIZE bytes per record, multiple of 512
  -i, --ignore-zeros             ignore zeroed blocks in archive (means EOF)
  -B, --read-full-records        reblock as we read (for 4.2BSD pipes)

Archive format selection:
  -V, --label=NAME                   create archive with volume name NAME
              PATTERN                at list/extract time, a globbing PATTERN
  -o, --old-archive, --portability   write a V7 format archive
      --posix                        write a POSIX format archive
  -j, --bzip2                        filter the archive through bzip2
  -z, --gzip, --ungzip               filter the archive through gzip
  -Z, --compress, --uncompress       filter the archive through compress
      --use-compress-program=PROG    filter through PROG (must accept -d)

Local file selection:
  -C, --directory=DIR          change to directory DIR
  -T, --files-from=NAME        get names to extract or create from file NAME
      --null                   -T reads null-terminated names, disable -C
      --exclude=PATTERN        exclude files, given as a PATTERN
  -X, --exclude-from=FILE      exclude patterns listed in FILE
      --anchored               exclude patterns match file name start (default)
      --no-anchored            exclude patterns match after any /
      --ignore-case            exclusion ignores case
      --no-ignore-case         exclusion is case sensitive (default)
      --wildcards              exclude patterns use wildcards (default)
      --no-wildcards           exclude patterns are plain strings
      --wildcards-match-slash  exclude pattern wildcards match '/' (default)
      --no-wildcards-match-slash exclude pattern wildcards do not match '/'
  -P, --absolute-names         don't strip leading `/'s from file names
  -h, --dereference            dump instead the files symlinks point to
      --no-recursion           avoid descending automatically in directories
  -l, --one-file-system        stay in local file system when creating archive
  -K, --starting-file=NAME     begin at file NAME in the archive
  -N, --newer=DATE             only store files newer than DATE
      --newer-mtime=DATE       compare date and time when data changed only
      --after-date=DATE        same as -N
      --backup[=CONTROL]       backup before removal, choose version control
      --suffix=SUFFIX          backup before removal, override usual suffix

Informative output:
      --help            print this help, then exit
      --version         print tar program version number, then exit
  -v, --verbose         verbosely list files processed
      --checkpoint      print directory names while reading the archive
      --totals          print total bytes written while creating archive
  -R, --block-number    show block number within archive with each message
  -w, --interactive     ask for confirmation for every action
      --confirmation    same as -w

The backup suffix is `~', unless set with --suffix or SIMPLE_BACKUP_SUFFIX.
The version control may be set with --backup or VERSION_CONTROL, values are:

  t, numbered     make numbered backups
  nil, existing   numbered if numbered backups exist, simple otherwise
  never, simple   always make simple backups

GNU tar cannot read nor produce `--posix' archives.  If POSIXLY_CORRECT
is set in the environment, GNU extensions are disallowed with `--posix'.
Support for POSIX is only partially implemented, don't count on it yet.
ARCHIVE may be FILE, HOST:FILE or USER@HOST:FILE; DATE may be a textual date
or a file name starting with `/' or `.', in which case the file's date is used.
*This* `tar' defaults to `-f- -b20'.

Report bugs to <bug-tar@gnu.org>.


#include <stdio.h>
#include <string.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <netdb.h>

main(int argc, const char *argv[]) {
u_long addr;
struct hostent *hp;
char **p;

if(argc !=2){
printf("uso: %s dirección-IP\n", argv[0]);
exit(1);
}

if((addr =inet_addr(argv[1]))==-1){
printf("La dirección IP tiene que estar en notación de punto: a.b.c.d \n");
exit(2);
}
hp = gethostbyaddr((char *)&addr, sizeof (addr), AF_INET);
if(hp==NULL){
printf("No encuentro información sobre la maquina %s\n", argv[1]);
exit(3);
}

for(p=hp->h_addr_list; *p != 0; p++){
struct in_addr in;
memcpy(&in.s_addr, *p, sizeof (in.s_addr));
printf("%s\t%s\n", inet_ntoa(in), hp->h_name);
}
exit(0);
}


************

C     Last change:  EES  26 Jun 2003    4:09 pm
program montecarlo1

integer seed

data seed/987654321/
data exact/.78540/

end program
***************

c*-*
c*-* Copyright (C) 2000 Massimo Marchi and Piero Procacci
c*-* Full copyright notice at http://www.chim.unifi.it/orac/copyright4.0.html
c*-* Contact for info M. Marchi, CEA,  Gif Sur Yvette 91191 (FRANCE) 
c*-* Email:marchi@villon.saclay.cea.fr
c*-* 
      subroutine pmesh_kspace_get_sizes(
     $     nfft1,nfft2,nfft3,numatoms,order,
     $     sizfftab,sizffwrk,siztheta,siz_Q,sizheap,sizstack)
      implicit none
      integer nfft1,nfft2,nfft3,numatoms,order,
     $     sizfftab,sizffwrk,siztheta,siz_Q,sizheap,sizstack

c INPUT  
c      nfft1,nfft2,nfft3,numatoms,order
c      nfft1,nfft2,nfft3 are the dimensions of the charge grid array
c      numatoms is number of atoms
c      order is the order of B-spline interpolation

c OUTPUT
c      sizfftab,sizffwrk,siztheta,siz_Q
c      sizfftab is permanent 3d fft table storage
c      sizffwrk is temporary 3d fft work storage
c      siztheta is size of arrays theta1-3 dtheta1-3
c      sizheap is total size of permanent storage
c      sizstack is total size of temporary storage


c This routine computes the above output parameters needed for 
c heap or stack allocation.

      integer nfftdim1,nfftdim2,nfftdim3,nfftable,nffwork

      call get_fftdims(nfft1,nfft2,nfft3,
     $       nfftdim1,nfftdim2,nfftdim3,nfftable,nffwork,
     $       sizfftab,sizffwrk)
      siztheta = numatoms*order
      siz_Q = 2*nfftdim1*nfftdim2*nfftdim3
      sizheap = nfft1+nfft2+nfft3+sizfftab
      sizstack = siz_Q+6*siztheta+sizffwrk+3*numatoms
C      write(6,*)'total HEAP storage needed = ',sizheap
C      write(6,*)'total STACK storage needed = ',sizstack
      return
      end
c----------------------------------------------------
      subroutine pmesh_kspace_setup(
     $    bsp_mod1,bsp_mod2,bsp_mod3,fftable,ffwork,
     $    nfft1,nfft2,nfft3,order,sizfftab,sizffwrk)
      implicit none

c  see DO_PMESH_KSPACE for explanation of arguments

      integer nfft1,nfft2,nfft3,order,sizfftab,sizffwrk
      double precision bsp_mod1(nfft1),bsp_mod2(nfft2),
     +   bsp_mod3(nfft3)
      double precision fftable(sizfftab),ffwork(sizffwrk)
   
      double precision dummy
      integer nfftdim1,nfftdim2,nfftdim3,nfftable,nffwork,sfft,sffw

      call get_fftdims(nfft1,nfft2,nfft3,
     $       nfftdim1,nfftdim2,nfftdim3,nfftable,nffwork,sfft,sffw)
      call load_bsp_moduli(bsp_mod1,bsp_mod2,bsp_mod3,
     $   nfft1,nfft2,nfft3,order)
      call fft_setup(dummy,fftable,ffwork,
     $      nfft1,nfft2,nfft3,nfftdim1,nfftdim2,nfftdim3,
     $      nfftable,nffwork)
      return
      end
c----------------------------------------------------
      subroutine do_pmesh_kspace(
     $   numatoms,x,y,z,charge,recip,volume,ewald_coeff,
     $   order,nfft1,nfft2,nfft3,
     $   eer,dx,dy,dz,virial,
     $   sizfftab,sizffwrk,siztheta,siz_Q,
     $   bsp_mod1,bsp_mod2,bsp_mod3,fftable,
     $   Q,ffwork,theta1,theta2,theta3,dtheta1,dtheta2,dtheta3,
     $   fr1,fr2,fr3,rkcut)
      implicit none

c INPUT 
c       numatoms:  number of atoms
c       x,y,z:   atomic coords
c       charge  atomic charges
c       recip: 3x3 array of reciprocal unit cell vectors (stored as columns)
c       volume: the volume of the unit cell
c       ewald_coeff:   ewald convergence parameter
c       order: the order of Bspline interpolation. E.g. cubic is order 4
c          fifth degree is order 6 etc. The order must be an even number 
c          and at least 4.
c       nfft1,nfft2,nfft3: the dimensions of the charge grid array
      integer numatoms,order,nfft1,nfft2,nfft3
      double precision x(numatoms),y(numatoms),z(numatoms),
     $       charge(numatoms),recip(3,3),volume,ewald_coeff,rkcut

c OUTPUT
c       eer:  ewald reciprocal or k-space  energy
c       dx,dy,dz: forces incremented by k-space sum
c       virial:  virial due to k-space sum (valid for atomic scaling;
c                rigid molecule virial needs a correction term not
c                computed here
      double precision eer,dx(numatoms),dy(numatoms),dz(numatoms),
     $        virial(3,3)

c SIZES of some arrays
      integer   sizfftab,sizffwrk,siztheta,siz_Q


c HEAP STORAGE:  These arrays need to be preserved throughout simulation
      double precision bsp_mod1(nfft1),bsp_mod2(nfft2),
     $                 bsp_mod3(nfft3),fftable(sizfftab)
c STACK STORAGE: These arrays can be tossed after leaving this routine
      double precision Q(siz_Q),ffwork(sizffwrk),theta1(siztheta),
     $          theta2(siztheta),theta3(siztheta),dtheta1(siztheta),
     $          dtheta2(siztheta),dtheta3(siztheta),fr1(numatoms),
     $          fr2(numatoms),fr3(numatoms)

      integer nfftdim1,nfftdim2,nfftdim3,nfftable,nffwork,sfft,sffw
c  get some integer array dimensions
      call get_fftdims(nfft1,nfft2,nfft3,
     $       nfftdim1,nfftdim2,nfftdim3,nfftable,nffwork,sfft,sffw)
      
      call get_scaled_fractionals(
     $         numatoms,x,y,z,recip,nfft1,nfft2,nfft3,fr1,fr2,fr3)
      call get_bspline_coeffs(
     $         numatoms,fr1,fr2,fr3,order,
     $         theta1,theta2,theta3,dtheta1,dtheta2,dtheta3)
      call fill_charge_grid(
     $         numatoms,charge,theta1,theta2,theta3,fr1,fr2,fr3,order,
     $         nfft1,nfft2,nfft3,nfftdim1,nfftdim2,nfftdim3,Q)
      call fft_back(
     $         Q,fftable,ffwork,nfft1,nfft2,nfft3,
     $         nfftdim1,nfftdim2,nfftdim3,nfftable,nffwork)
      call scalar_sum(
     $         Q,ewald_coeff,volume,recip,bsp_mod1,bsp_mod2,bsp_mod3,
     $     nfft1,nfft2,nfft3,nfftdim1,nfftdim2,nfftdim3,eer,virial,rkcut
     &     )
      call fft_forward(
     $         Q,fftable,ffwork,nfft1,nfft2,nfft3,
     $         nfftdim1,nfftdim2,nfftdim3,nfftable,nffwork)
      call grad_sum(
     $         numatoms,charge,recip,theta1,theta2,theta3,
     $         dtheta1,dtheta2,dtheta3,dx,dy,dz,fr1,fr2,fr3,
     $         order,nfft1,nfft2,nfft3,nfftdim1,nfftdim2,nfftdim3,Q)
      return
      end
c----------------------------------------------------------------------
      subroutine get_scaled_fractionals(
     $           numatoms,x,y,z,recip,nfft1,nfft2,nfft3,
     $           fr1,fr2,fr3)
      implicit none

c INPUT:
c      numatoms: number of atoms
c      x,y,z: arrays of cartesian coords
c      recip: the 3x3 array of reciprocal vectors stored as columns
c OUTPUT:
c     fr1,fr2,fr3 the scaled and shifted fractional coords

      integer numatoms,nfft1,nfft2,nfft3
      double precision x(numatoms),y(numatoms),z(numatoms),recip(3,3)
      double precision fr1(numatoms),fr2(numatoms),fr3(numatoms)

      integer n
      double precision w
      do 100 n = 1,numatoms
        w = x(n)*recip(1,1)+y(n)*recip(2,1)+z(n)*recip(3,1)
        fr1(n) = nfft1*(w - anint(w) + 0.5d0)
        w = x(n)*recip(1,2)+y(n)*recip(2,2)+z(n)*recip(3,2)
        fr2(n) = nfft2*(w - anint(w) + 0.5d0)
        w = x(n)*recip(1,3)+y(n)*recip(2,3)+z(n)*recip(3,3)
        fr3(n) = nfft3*(w - anint(w) + 0.5d0)
100   continue
      return
      end
c---------------------------------------------------------------
      subroutine load_bsp_moduli(bsp_mod1,bsp_mod2,bsp_mod3,
     $   nfft1,nfft2,nfft3,order)
      implicit none
      integer nfft1,nfft2,nfft3,order
      double precision bsp_mod1(nfft1),bsp_mod2(nfft2),
     +   bsp_mod3(nfft3)

      integer MAXORDER
      parameter (MAXORDER=25)
      integer MAXNFFT
      parameter (MAXNFFT=1000)
      double precision array(MAXORDER),darray(MAXORDER),w
      double precision bsp_arr(MAXNFFT)
      integer i,maxn

c this routine loads the moduli of the inverse DFT of the B splines
c bsp_mod1-3 hold these values, nfft1-3 are the grid dimensions,
c Order is the order of the B spline approx.

      if ( order .gt. MAXORDER )then
       write(6,*)'order too large! check on MAXORDER'
       stop
      endif
      maxn = max(nfft1,nfft2,nfft3)
      if ( maxn .gt. MAXNFFT )then 
       write(6,*)'nfft1-3 too large! check on MAXNFFT'
       stop
      endif
      w = 0.d0
      call fill_bspline(w,order,array,darray)
      do 100 i = 1,maxn
        bsp_arr(i) = 0.d0
100   continue
      do 150 i = 2,order+1
       bsp_arr(i) = array(i-1)
150   continue
      call DFTMOD(bsp_mod1,bsp_arr,nfft1)
      call DFTMOD(bsp_mod2,bsp_arr,nfft2)
      call DFTMOD(bsp_mod3,bsp_arr,nfft3)
      return
      end
c------------------------------------------------------------------------
      subroutine DFTMOD(bsp_mod,bsp_arr,nfft)
      implicit none
      integer nfft
      double precision bsp_mod(nfft),bsp_arr(nfft)
c Computes the modulus of the discrete fourier transform of bsp_arr,
c  storing it into bsp_mod

      integer j,k
      double precision sum1,sum2,twopi,arg,tiny
      twopi = 2.d0*3.14159265358979323846
      tiny = 1.d-7
      do 300 k = 1,nfft
       sum1 = 0.d0
       sum2 = 0.d0
       do 250 j = 1,nfft
         arg = twopi*(k-1)*(j-1)/nfft
         sum1 = sum1 + bsp_arr(j)*dcos(arg)
         sum2 = sum2 + bsp_arr(j)*dsin(arg)
250    continue
       bsp_mod(k) = sum1**2 + sum2**2
300   continue
      do 400 k = 1,nfft
       if ( bsp_mod(k) .lt. tiny )
     $     bsp_mod(k) = 0.5d0*(bsp_mod(k-1) + bsp_mod(k+1))
400   continue
      return
      end
c------------------------------------------------------------------------


      subroutine fill_charge_grid(
     $         numatoms,charge,theta1,theta2,theta3,fr1,fr2,fr3,
     $         order,nfft1,nfft2,nfft3,nfftdim1,nfftdim2,nfftdim3,Q)
c---------------------------------------------------------------------
c INPUT:
c      numatoms:  number of atoms
c      charge: the array of atomic charges
c      theta1,theta2,theta3: the spline coeff arrays
c      fr1,fr2,fr3 the scaled and shifted fractional coords
c      nfft1,nfft2,nfft3: the charge grid dimensions
c      nfftdim1,nfftdim2,nfftdim3: physical charge grid dims
c      order: the order of spline interpolation
c OUTPUT:
c      Q the charge grid
c---------------------------------------------------------------------
      implicit none
      integer numatoms,order,nfft1,nfft2,nfft3
      integer nfftdim1,nfftdim2,nfftdim3
      double precision fr1(numatoms),fr2(numatoms),fr3(numatoms)
      double precision theta1(order,numatoms),theta2(order,numatoms),
     $     theta3(order,numatoms),charge(numatoms)
      double precision Q(2,nfftdim1,nfftdim2,nfftdim3)

      integer n,ntot,ith1,ith2,ith3,i0,j0,k0,i,j,k
      double precision prod
      ntot = 2*nfftdim1*nfftdim2*nfftdim3
      call clearQ(Q,ntot)

      do 300 n = 1,numatoms
        k0 = int(fr3(n)) - order
        do 200 ith3 = 1,order
         k0 = k0 + 1
         k = k0 + 1 + (nfft3 - isign(nfft3,k0))/2
         j0 = int(fr2(n)) - order
         do 150 ith2 = 1,order
          j0 = j0 + 1
          j = j0 + 1 + (nfft2 - isign(nfft2,j0))/2
          prod = theta2(ith2,n)*theta3(ith3,n)*charge(n)
          i0 = int(fr1(n)) - order
          do 100 ith1 = 1,order
           i0 = i0 + 1
           i = i0 + 1 + (nfft1 - isign(nfft1,i0))/2
           Q(1,i,j,k) = Q(1,i,j,k) + theta1(ith1,n) * prod
100       continue
150      continue
200     continue
300   continue
      return
      end
c-----------------------------------------------------------
      subroutine clearQ(Q,ntot)
      integer ntot
      double precision Q(ntot)
      integer i
      do 10 i = 1,ntot
        Q(i) = 0.d0
10    continue
      return
      end
c-----------------------------------------------------------
      subroutine grad_sum(
     $         numatoms,charge,recip,theta1,theta2,theta3,
     $         dtheta1,dtheta2,dtheta3,fx,fy,fz,fr1,fr2,fr3,
     $         order,nfft1,nfft2,nfft3,nfftdim1,nfftdim2,nfftdim3,Q)
      implicit none
      integer numatoms,order,nfft1,nfft2,nfft3
      integer nfftdim1,nfftdim2,nfftdim3
      double precision recip(3,3)
      double precision fr1(numatoms),fr2(numatoms),fr3(numatoms)
      double precision fx(numatoms),fy(numatoms),fz(numatoms)
      double precision theta1(order,numatoms),theta2(order,numatoms),
     $     theta3(order,numatoms),charge(numatoms)
      double precision dtheta1(order,numatoms),dtheta2(order,numatoms),
     $     dtheta3(order,numatoms)
      double precision Q(2,nfftdim1,nfftdim2,nfftdim3)

      integer n,ith1,ith2,ith3,i0,j0,k0,i,j,k
      double precision f1,f2,f3,term

C$DOACROSS LOCAL(f1,f2,f3,k0,k,j0,j,i0,i,term,n,ith1,ith2,ith3),
C$&  SHARE(numatoms,fr1,fr2,fr3,charge,Q,fx,fy,fz,recip,order,
C$&   nfft1,nfft2,nfft3,theta1,theta2,theta3,dtheta1,dtheta2,dtheta3)
      do 400 n = 1,numatoms
        f1 = 0.d0
        f2 = 0.d0
        f3 = 0.d0
        k0 = int(fr3(n)) - order
        do 200 ith3 = 1,order
         k0 = k0 + 1
         k = k0 + 1 + (nfft3 - isign(nfft3,k0))/2
         j0 = int(fr2(n)) - order
         do 150 ith2 = 1,order
          j0 = j0 + 1
          j = j0 + 1 + (nfft2 - isign(nfft2,j0))/2
          i0 = int(fr1(n)) - order
          do 100 ith1 = 1,order
           i0 = i0 + 1
           i = i0 + 1 + (nfft1 - isign(nfft1,i0))/2
           term = charge(n)*Q(1,i,j,k)
c force is negative of grad
           f1 = f1 - nfft1 * term * dtheta1(ith1,n) *
     $          theta2(ith2,n) * theta3(ith3,n)
           f2 = f2 - nfft2 * term * theta1(ith1,n) *
     $          dtheta2(ith2,n) * theta3(ith3,n)
           f3 = f3 - nfft3 * term * theta1(ith1,n) *
     $          theta2(ith2,n) * dtheta3(ith3,n)
100       continue
150      continue
200     continue
        fx(n) = fx(n) + recip(1,1)*f1+recip(1,2)*f2+recip(1,3)*f3
        fy(n) = fy(n) + recip(2,1)*f1+recip(2,2)*f2+recip(2,3)*f3
        fz(n) = fz(n) + recip(3,1)*f1+recip(3,2)*f2+recip(3,3)*f3
400   continue
      return
      end

c-------------------------------------------------------------
      subroutine check_virial(self_ene,adj_ene,dir_ene,rec_ene,
     $       adj_vir,rec_vir,dir_vir)
      implicit none
      double precision self_ene,adj_ene,dir_ene,rec_ene
      double precision adj_vir(6),rec_vir(6),dir_vir(6)

      double precision etot,svir,relerr
      etot = self_ene+adj_ene+dir_ene+rec_ene
      svir = adj_vir(1)+rec_vir(1)+dir_vir(1)+
     $       adj_vir(4)+rec_vir(4)+dir_vir(4)+
     $       adj_vir(6)+rec_vir(6)+dir_vir(6)
      relerr = 2.d0*abs(etot+svir)/(abs(etot)+abs(svir))
      write(6,*)'tot ene =   ',etot
      write(6,*)'trace vir = ',svir
      write(6,*)'rel error = ',relerr
      return
      end
c-------------------------------------------------------------
      subroutine check_force(numatoms,
     $      fx1,fy1,fz1,fx2,fy2,fz2,fdx,fdy,fdz)
      integer numatoms
      double precision fx1(*),fy1(*),fz1(*),fx2(*),fy2(*),fz2(*),
     $      fdx(*),fdy(*),fdz(*)

      double precision rms_num,rms_den,rms
      integer i
      rms_num = 0.d0
      rms_den = 0.d0
      do 100 i = 1,numatoms
       rms_num = rms_num + (fx1(i)-fx2(i))**2 + (fy1(i)-fy2(i))**2 +
     $          (fz1(i)-fz2(i))**2
       rms_den = rms_den + fdx(i)**2 + fdy(i)**2 + fdz(i)**2
100   continue
      rms = dsqrt(rms_num/rms_den)
      write(6,*)'rms force err = ',rms
      return
      end
c-------------------------------------------------------------

      subroutine pubz3di(n1,n2,n3,table,ntable)
      implicit none
      integer n1,n2,n3,ntable
      double precision table(ntable,3)
c ntable should be 4*max(n1,n2,n3) +15


      call cffti(n1,table(1,1))
      call cffti(n2,table(1,2))
      call cffti(n3,table(1,3))

      return
      end
*****************************************************************************
      subroutine pubz3d(isign,n1,n2,n3,w,ld1,ld2,table,ntable,
     $    work,nwork)
      implicit none

      integer n1,n2,n3,ld1,ld2,isign,ntable,nwork
      double complex w(ld1,ld2,n3)
      double complex work( nwork)
      double precision table(ntable,3)

      integer i,j,k
c ntable should be 4*max(n1,n2,n3) +15
c nwork should be max(n1,n2,n3)
c
c   transform along X  first ...
c
      do 100 k = 1, n3
       do 90 j = 1, n2
        do 70 i = 1,n1
          work(i) = w(i,j,k)
70      continue
        if ( isign .eq. -1) call cfftf(n1,work,table(1,1))
        if ( isign .eq. 1) call cfftb(n1,work,table(1,1))
        do 80 i = 1,n1
          w(i,j,k) = work(i)
80      continue
90     continue
100   continue
c
c   transform along Y then ...
c
      do 200 k = 1,n3
       do 190 i = 1,n1
        do 170 j = 1,n2
          work(j) = w(i,j,k)
170     continue
        if ( isign .eq. -1) call cfftf(n2,work,table(1,2))
        if ( isign .eq. 1) call cfftb(n2,work,table(1,2))
        do 180 j = 1,n2
          w(i,j,k) = work(j)
180     continue
190    continue
200   continue
c
c   transform along Z finally ...
c
      do 300 i = 1, n1
       do 290 j = 1, n2
        do 270 k = 1,n3
          work(k) = w(i,j,k)
270     continue
        if ( isign .eq. -1) call cfftf(n3,work,table(1,3))
        if ( isign .eq. 1) call cfftb(n3,work,table(1,3))
        do 280 k = 1,n3
          w(i,j,k) = work(k)
280     continue
290    continue
300   continue

      return
      end
c----------------------------------------------------


C SPLINE

c---------------------------------------------------------------------
      subroutine get_bspline_coeffs(
     $           numatoms,fr1,fr2,fr3,order,
     $           theta1,theta2,theta3,dtheta1,dtheta2,dtheta3)
c---------------------------------------------------------------------
c INPUT:
c      numatoms: number of atoms
c      fr1,fr2,fr3 the scaled and shifted fractional coords
c      order: the order of spline interpolation
c OUTPUT
c      theta1,theta2,theta3: the spline coeff arrays
c      dtheta1,dtheta2,dtheta3: the 1st deriv of spline coeff arrays
c---------------------------------------------------------------------
      implicit none
      integer numatoms,order
      double precision fr1(numatoms),fr2(numatoms),fr3(numatoms)
      double precision theta1(order,numatoms),theta2(order,numatoms),
     $     theta3(order,numatoms),dtheta1(order,numatoms),
     $     dtheta2(order,numatoms),dtheta3(order,numatoms)

      double precision w
      integer n

      do 100 n = 1,numatoms
        w = fr1(n)-int(fr1(n))
        call fill_bspline(w,order,theta1(1,n),dtheta1(1,n))
        w = fr2(n)-int(fr2(n))
        call fill_bspline(w,order,theta2(1,n),dtheta2(1,n))
        w = fr3(n)-int(fr3(n))
        call fill_bspline(w,order,theta3(1,n),dtheta3(1,n))
100   continue
      return
      end
c---------------------------------------------------
      subroutine fill_bspline(w,order,array,darray)
c---------- use standard B-spline recursions: see doc file
      implicit none
      integer order
      double precision w,array(order),darray(order)

      integer k
c do linear case
      call init(array,w,order)
c compute standard b-spline recursion
      do 10 k = 3,order-1
       call one_pass(array,w,k)
10    continue
c perform standard b-spline differentiation
      call diff(array,darray,order)
c one more recursion
      call one_pass(array,w,order)
      return
      end
c---------------------------------------------------
      subroutine init(c,x,order)
      implicit none
      integer order
      double precision c(order),x
      c(order) = 0.d0
      c(2) = x
      c(1) = 1.d0 - x
      return
      end
c-------------------------------------
      subroutine one_pass(c,x,k)
      implicit none
      double precision c(*),x
      integer k

      double precision div
      integer j

      div = 1.d0 / (k-1)
      c(k) = div*x*c(k-1)
      do 100 j = 1,k-2
       c(k-j) = div*((x+j)*c(k-j-1) + (k-j-x)*c(k-j))
100   continue
      c(1) = div*(1-x)*c(1)
      return
      end
c-------------------------------------
      subroutine diff(c,d,order)
      implicit none
      double precision c(*),d(*)
      integer order

      integer j
      d(1) = -c(1)
      do 10 j = 2,order
       d(j) = c(j-1) - c(j)
10    continue
      return
      end
c-------------------------------------


C   FFT CALLS

      subroutine get_fftdims(nfft1,nfft2,nfft3,
     $       nfftdim1,nfftdim2,nfftdim3,nfftable,nffwork,
     $       sizfftab,sizffwrk)
      implicit none
      integer nfft1,nfft2,nfft3,nfftdim1,nfftdim2,nfftdim3,
     $       nfftable,nffwork,sizfftab,sizffwrk
      integer n,nfftmax

      nfftmax = max(nfft1,nfft2,nfft3)
      nfftdim1 = nfft1
      n = nfft1/2
      if ( nfft1 .eq. 2*n )nfftdim1 = nfft1+1
      nfftdim2 = nfft2
      n = nfft2/2
      if ( nfft2 .eq. 2*n )nfftdim2 = nfft2+1
      nfftdim3 = nfft3
      n = nfft3/2
      if ( nfft3 .eq. 2*n )nfftdim3 = nfft3+1
#ifdef SGIFFT
      nfftable = 2*(nfftdim1+nfftdim2+nfftdim3+50)
      nffwork = 0
      sizfftab = nfftable
      sizffwrk  = nffwork
#endif
#ifdef CRAY
      nfftable = 2*(nfftdim1+nfftdim2+nfftdim3+50)
      nffwork = 4*nfftdim1*nfftdim2*nfftdim3
      sizfftab = nfftable
      sizffwrk  = nffwork
#else
      nfftable = 4*nfftmax + 15
      nffwork = nfftmax
      sizfftab = 3*nfftable
      sizffwrk  = 2*nfftmax
#endif
      return
      end

      subroutine fft_setup(array,fftable,ffwork,
     $      nfft1,nfft2,nfft3,nfftdim1,nfftdim2,nfftdim3,
     $      nfftable,nffwork)
      implicit none

      double precision array(*),fftable(*),ffwork(*)
      integer nfft1,nfft2,nfft3,nfftdim1,nfftdim2,nfftdim3
      integer nfftable,nffwork,isys(4)

      integer isign,inc1,inc2,inc3
      double precision scale

#ifdef SGIFFT
      call ZFFT3DI(nfft1,nfft2,nfft3,fftable)
#endif
#ifdef CRAY
      write(6,*)'using cray fft code'
      isign = 0
      scale = 1.d0
      isys(1)=3
      isys(2)=0
      isys(3)=0
      isys(4)=0
      call CCFFT3D(isign,nfft1,nfft2,nfft3,scale,array,
     $      nfftdim1,nfftdim2,array,nfftdim1,nfftdim2,fftable,
     $      ffwork,isys)
#else
      write(6,*)'using public domain fft code'
      call pubz3di(nfft1,nfft2,nfft3,fftable,nfftable)
#endif
      return
      end
c-----------------------------------------------------------
      subroutine fft_forward(array,fftable,ffwork,
     $      nfft1,nfft2,nfft3,nfftdim1,nfftdim2,nfftdim3,
     $      nfftable,nffwork)
      implicit none

      double precision array(*),fftable(*),ffwork(*)
      integer nfft1,nfft2,nfft3,nfftdim1,nfftdim2,nfftdim3

      integer isign,inc1,inc2,inc3
      double precision scale
      integer nfftable,nffwork,isys(4)

      isign = 1

#ifdef SGIFFT
      call ZFFT3D(isign,nfft1,nfft2,nfft3,array,
     $   nfftdim1,nfftdim2,fftable)
#endif
#ifdef CRAY
      scale = 1.d0
      isys(1)=3
      isys(2)=0
      isys(3)=0
      isys(4)=0
      call CCFFT3D(isign,nfft1,nfft2,nfft3,scale,array,
     $      nfftdim1,nfftdim2,array,nfftdim1,nfftdim2,fftable,
     $      ffwork,isys)
#else
      call pubz3d(isign,nfft1,nfft2,nfft3,array,
     $   nfftdim1,nfftdim2,fftable,nfftable,ffwork,nffwork)
#endif
      return
      end
c-----------------------------------------------------------
      subroutine fft_back(array,fftable,ffwork,
     $      nfft1,nfft2,nfft3,nfftdim1,nfftdim2,nfftdim3,
     $      nfftable,nffwork)
      implicit none

      double precision array(*),fftable(*),ffwork(*)
      integer nfft1,nfft2,nfft3,nfftdim1,nfftdim2,nfftdim3
      integer nfftable,nffwork,isys(4)

      integer isign,inc1,inc2,inc3
      double precision scale

      isign = -1

#ifdef SGIFFT
      call ZFFT3D(isign,nfft1,nfft2,nfft3,array,
     $   nfftdim1,nfftdim2,fftable)
#endif
#ifdef CRAY
      scale = 1.d0
      isys(1)=3
      isys(2)=0
      isys(3)=0
      isys(4)=0
      call CCFFT3D(isign,nfft1,nfft2,nfft3,scale,array,
     $      nfftdim1,nfftdim2,array,nfftdim1,nfftdim2,fftable,
     $      ffwork,isys)
#else
      call pubz3d(isign,nfft1,nfft2,nfft3,array,
     $   nfftdim1,nfftdim2,fftable,nfftable,ffwork,nffwork)
#endif
      return
      end
************
[roberto@nautilus tools]$ rpm
   RPM version 4.0.4
   Copyright (C) 1998-2000 - Red Hat, Inc.
   This program may be freely redistributed under the terms of the GNU GPL

Usage: rpm {--help}
rpm {--version}
[roberto@nautilus tools]$ rpm nmap*.rpm
   RPM version 4.0.4
   Copyright (C) 1998-2000 - Red Hat, Inc.
   This program may be freely redistributed under the terms of the GNU GPL

Usage: rpm {--help}
rpm {--version}
[roberto@nautilus tools]$ rpm --help
Usage: rpm [OPTION...]

   Query options (with -q or --query):
   -c, --configfiles                list all configuration files
   -d, --docfiles                   list all documentation files
   --dump                           dump basic file information
   -l, --list                       list files in package
   --queryformat=QUERYFORMAT        use the following query format
-s, --state                      display the states of the listed files
-v, --verbose                    display a verbose file listing
-a, --all                        query/verify all packages
-f, --file                       query/verify package(s) owning file
-g, --group                      query/verify package(s) in group
-p, --package                    query/verify a package file (i.e. a binary
*.rpm file)
--querytags                      display known query tags
--specfile                       query a spec file
--whatrequires                   query/verify the package(s) which require a
dependency
--whatprovides                   query/verify the package(s) which provide a
dependency

Verify options (with -V or --verify):
--nomd5[|=0x1]                   don't verify MD5 digest of files
   --nofiles[|=0x10000]             don't verify files in package
   --nodeps[|=0x20000]              don't verify package dependencies
   --noscript[|=0x40000]            don't execute %verifyscript (if any)
   -a, --all                        query/verify all packages
   -f, --file                       query/verify package(s) owning file
   -g, --group                      query/verify package(s) in group
   -p, --package                    query/verify a package file (i.e. a binary
*.rpm file)
   --querytags                      display known query tags
   --specfile                       query a spec file
   --whatrequires                   query/verify the package(s) which require a
   dependency
   --whatprovides                   query/verify the package(s) which provide a
   dependency

   Signature options:
   --addsign                        add a signature to a package
   --resign                         sign a package (discard current signature)
   -K, --checksig                   verify package signature
   --nogpg[&=~0x4]                  skip any GPG signatures
--nomd5[&=~0x2]                  do not verify file md5 checksums

  Database options:
  --initdb                         initialize database
  --rebuilddb                      rebuild database inverted lists from
  installed package headers

  Install/Upgrade/Erase options:
  --allfiles[|=0x40]               install all files, even configurations
which might otherwise be skipped
--allmatches[|=0x2]              remove all packages which match <package>
(normally an error is generated if
<package> specified multiple packages)
--badreloc[|=0x8]                relocate files in non-relocateable package
-e, --erase=<package>+           erase (uninstall) package
--excludedocs[|=0x20]            do not install documentation
--excludepath=<path>             skip files with leading component <path>
--force[|=0x74]                  short hand for --replacepkgs --replacefiles
 -F, --freshen=<packagefile>+     upgrade package(s) if already installed
-h, --hash[|=0x2]                print hash marks as package installs (good
with -v)
--ignorearch[|=0x2]              don't verify package architecture
   --ignoreos[|=0x1]                don't verify package operating system
   --ignoresize[|=0x180]            don't check disk space before installing
   --includedocs                    install documentation
   --install=<packagefile>+         install package
--justdb[|=0x8]                  update the database, but do not modify the
filesystem
--nodeps                         do not verify package dependencies
--noorder[|=0x8]                 do not reorder package installation to
satisfy dependencies
--noscripts[|=0xff0000]          do not execute package scriptlet(s)
--notriggers[|=0x990000]         do not execute any scriptlet(s) triggered
  by this package
  --oldpackage[|=0x40]             upgrade to an old version of the package
 (--force on upgrades does this
  automatically)
 --percent[|=0x1]                 print percentages as package installs
 --prefix=<dir>                   relocate the package to <dir>, if
relocatable
--relocate=<old>=<new>           relocate files from path <old> to <new>
  --repackage[|=0x400]             save erased package files by repackaging
--replacefiles[|=0x30]           install even if the package replaces
 installed files
 --replacepkgs[|=0x4]             reinstall if the package is already present
--test[|=0x1]                    don't install, but tell if it would work or
   not
   -U, --upgrade=<packagefile>+     upgrade package(s)

Common options for all rpm modes:
--version                        print the version of rpm being used
--quiet                          provide less detailed output
-v, --verbose                    provide more detailed output
--define='<name> <body>'         define macro <name> with value <body>
 --eval=<expr>+                   print macro expansion of <expr>+
-r, --root=<dir>                 use <dir> as the top level directory
(default: "/")
--macros=<file:...>              read <file:...> instead of default macro
file(s)
--rcfile=<file:...>              read <file:...> instead of default rpmrc
file(s)
--showrc                         display final rpmrc and macro configuration

Options implemented via popt alias/exec:
--scripts                        list install/erase scriptlets from
package(s)
--setperms                       set permissions of files in a package
--setugids                       set user/group ownership of files in a
package
--conflicts                      list capabilities this package conflicts
with
--obsoletes                      list other packages removed by installing
this package
--provides                       list capabilities that this package provides
--requires                       list capabilities required by package(s)
--info                           list descriptive information from package(s)
--changelog                      list change logs for this package
--triggers                       list trigger scriptlets from package(s)
--last                           list package(s) by install time, most
recent first
--filesbypkg                     list all files from each package
--redhatprovides                 find package name that contains a provided
capability (needs rpmdb-redhat package
installed)
--redhatrequires                 find package name that contains a required
capability (needs rpmdb-redhat package
installed)
--buildpolicy=<policy>           set buildroot <policy> (e.g. compress man
  pages)
  --with=<option>                  enable configure <option> for build
 --without=<option>               disable configure <option> for build

Help options:
-?, --help                       Show this help message
--usage                          Display brief usage message


unexpected token `file)'
[roberto@nautilus tools]$   --querytags                      display known query tags
bash: --querytags: command not found
[roberto@nautilus tools]$   --specfile                       query a spec file
bash: --specfile: command not found
[roberto@nautilus tools]$   --whatrequires                   query/verify the package(s) which require a
bash: syntax error near unexpected token `package(s'
[roberto@nautilus tools]$                                    dependency
bash: dependency: command not found
[roberto@nautilus tools]$   --whatprovides                   query/verify the package(s) which provide a
bash: syntax error near unexpected token `package(s'
[roberto@nautilus tools]$                                    dependency
bash: dependency: command not found
[roberto@nautilus tools]$
[roberto@nautilus tools]$ Signature options:
bash: Signature: command not found
[roberto@nautilus tools]$   --addsign                        add a signature to a package
bash: --addsign: command not found
[roberto@nautilus tools]$   --resign                         sign a package (discard current signature)
bash: syntax error near unexpected token `(d'
[roberto@nautilus tools]$   -K, --checksig                   verify package signature
bash: -K,: command not found
[roberto@nautilus tools]$   --nogpg[&=~0x4]                  skip any GPG signatures
bash: --nogpg[: command not found
[1] 10542
bash: =~0x4]: command not found
[1]+  Exit 127                --nogpg[
[roberto@nautilus tools]$   --nomd5[&=~0x2]                  do not verify file md5 checksums
bash: --nomd5[: command not found
[1] 10544
bash: =~0x2]: command not found
[1]   Exit 127                --nomd5[
[roberto@nautilus tools]$
[roberto@nautilus tools]$ Database options:
bash: Database: command not found
[roberto@nautilus tools]$   --initdb                         initialize database
bash: --initdb: command not found
[roberto@nautilus tools]$   --rebuilddb                      rebuild database inverted lists from
bash: --rebuilddb: command not found
[roberto@nautilus tools]$                                    installed package headers
bash: installed: command not found
[roberto@nautilus tools]$
[roberto@nautilus tools]$ Install/Upgrade/Erase options:
bash: Install/Upgrade/Erase: No such file or directory
[roberto@nautilus tools]$   --allfiles[|=0x40]               install all files, even configurations
bash: --allfiles[: command not found
bash: =0x40]: command not found
[roberto@nautilus tools]$                                    which might otherwise be skipped
/usr/bin/which: no might in (/usr/local/bin:/bin:/usr/bin:/usr/X11R6/bin:/usr/local/grace/bin/:/home/roberto/bin)
/usr/bin/which: no otherwise in (/usr/local/bin:/bin:/usr/bin:/usr/X11R6/bin:/usr/local/grace/bin/:/home/roberto/bin)
/usr/bin/which: no be in (/usr/local/bin:/bin:/usr/bin:/usr/X11R6/bin:/usr/local/grace/bin/:/home/roberto/bin)
/usr/bin/which: no skipped in (/usr/local/bin:/bin:/usr/bin:/usr/X11R6/bin:/usr/local/grace/bin/:/home/roberto/bin)
[roberto@nautilus tools]$   --allmatches[|=0x2]              remove all packages which match <package>
bash: syntax error near unexpected token `<package>'
[roberto@nautilus tools]$                                    (normally an error is generated if
>                                    <package> specified multiple packages)
bash: normally: command not found
bash: package: No such file or directory
[roberto@nautilus tools]$   --badreloc[|=0x8]                relocate files in non-relocateable package
bash: --badreloc[: command not found
bash: =0x8]: command not found
[roberto@nautilus tools]$   -e, --erase=<package>+           erase (uninstall) package
bash: syntax error near unexpected token `(u'
[roberto@nautilus tools]$   --excludedocs[|=0x20]            do not install documentation
bash: --excludedocs[: command not found
bash: =0x20]: command not found
[roberto@nautilus tools]$   --excludepath=<path>             skip files with leading component <path>
bash: syntax error near unexpected token `<path>'
[roberto@nautilus tools]$   --force[|=0x74]                  short hand for --replacepkgs --replacefiles
bash: --force[: command not found
bash: =0x74]: command not found
[roberto@nautilus tools]$   -F, --freshen=<packagefile>+     upgrade package(s) if already installed
bash: syntax error near unexpected token `package(s'
[roberto@nautilus tools]$   -h, --hash[|=0x2]                print hash marks as package installs (good
bash: syntax error near unexpected token `(g'
[roberto@nautilus tools]$     ed output
output: No such file or directory

?
[roberto@nautilus tools]$ who
roberto  pts/0    Jun 20 18:29
[roberto@nautilus tools]$ ls
dumpacl.zip             john-16w.zip    nmap-2.53-1.i386.rpm         pwdump2.zip
firewalk-0.99.1.tar.gz  lc3setup01.exe  nvx005.zip                   sid.zip
foundstone tools        Mis documentos  pandora_linux_v4.0_b2.1.tgz  thcscan.zip
icmpquery.c.txt         Mis imágenes    pan_online_95_b2.zip         whisker.zip
john-1.6.tar.gz         nessus          pan_online_nt_b2.zip
[roberto@nautilus tools]$ tar
tar: You must specify one of the `-Acdtrux' options
Try `tar --help' for more information.
[roberto@nautilus tools]$ tar --help
GNU `tar' saves many files together into a single tape or disk archive, and
can restore individual files from the archive.

Usage: tar [OPTION]... [FILE]...

Examples:
  tar -cf archive.tar foo bar  # Create archive.tar from files foo and bar.
  tar -tvf archive.tar         # List all files in archive.tar verbosely.
  tar -xf archive.tar          # Extract all files from archive.tar.

If a long option shows an argument as mandatory, then it is mandatory
for the equivalent short option also.  Similarly for optional arguments.

Main operation mode:
  -t, --list              list the contents of an archive
  -x, --extract, --get    extract files from an archive
  -c, --create            create a new archive
  -d, --diff, --compare   find differences between archive and file system
  -r, --append            append files to the end of an archive
  -u, --update            only append files newer than copy in archive
  -A, --catenate          append tar files to an archive
      --concatenate       same as -A
      --delete            delete from the archive (not on mag tapes!)

Operation modifiers:
  -W, --verify               attempt to verify the archive after writing it
      --remove-files         remove files after adding them to the archive
  -k, --keep-old-files       don't replace existing files when extracting
      --overwrite            overwrite existing files when extracting
      --overwrite-dir        overwrite directory metadata when extracting
  -U, --unlink-first         remove each file prior to extracting over it
      --recursive-unlink     empty hierarchies prior to extracting directory
  -S, --sparse               handle sparse files efficiently
  -O, --to-stdout            extract files to standard output
  -G, --incremental          handle old GNU-format incremental backup
  -g, --listed-incremental=FILE
                             handle new GNU-format incremental backup
      --ignore-failed-read   do not exit with nonzero on unreadable files

Handling of file attributes:
      --owner=NAME             force NAME as owner for added files
      --group=NAME             force NAME as group for added files
      --mode=CHANGES           force (symbolic) mode CHANGES for added files
      --atime-preserve         don't change access times on dumped files
  -m, --modification-time      don't extract file modified time
      --same-owner             try extracting files with the same ownership
      --no-same-owner          extract files as yourself
      --numeric-owner          always use numbers for user/group names
  -p, --same-permissions       extract permissions information
      --no-same-permissions    do not extract permissions information
      --preserve-permissions   same as -p
  -s, --same-order             sort names to extract to match archive
      --preserve-order         same as -s
      --preserve               same as both -p and -s

Device selection and switching:
  -f, --file=ARCHIVE             use archive file or device ARCHIVE
      --force-local              archive file is local even if has a colon
      --rsh-command=COMMAND      use remote COMMAND instead of rsh
  -[0-7][lmh]                    specify drive and density
  -M, --multi-volume             create/list/extract multi-volume archive
  -L, --tape-length=NUM          change tape after writing NUM x 1024 bytes
  -F, --info-script=FILE         run script at end of each tape (implies -M)
      --new-volume-script=FILE   same as -F FILE
      --volno-file=FILE          use/update the volume number in FILE

Device blocking:
  -b, --blocking-factor=BLOCKS   BLOCKS x 512 bytes per record
      --record-size=SIZE         SIZE bytes per record, multiple of 512
  -i, --ignore-zeros             ignore zeroed blocks in archive (means EOF)
  -B, --read-full-records        reblock as we read (for 4.2BSD pipes)

Archive format selection:
  -V, --label=NAME                   create archive with volume name NAME
              PATTERN                at list/extract time, a globbing PATTERN
  -o, --old-archive, --portability   write a V7 format archive
      --posix                        write a POSIX format archive
  -j, --bzip2                        filter the archive through bzip2
  -z, --gzip, --ungzip               filter the archive through gzip
  -Z, --compress, --uncompress       filter the archive through compress
      --use-compress-program=PROG    filter through PROG (must accept -d)

Local file selection:
  -C, --directory=DIR          change to directory DIR
  -T, --files-from=NAME        get names to extract or create from file NAME
      --null                   -T reads null-terminated names, disable -C
      --exclude=PATTERN        exclude files, given as a PATTERN
  -X, --exclude-from=FILE      exclude patterns listed in FILE
      --anchored               exclude patterns match file name start (default)
      --no-anchored            exclude patterns match after any /
      --ignore-case            exclusion ignores case
      --no-ignore-case         exclusion is case sensitive (default)
      --wildcards              exclude patterns use wildcards (default)
      --no-wildcards           exclude patterns are plain strings
      --wildcards-match-slash  exclude pattern wildcards match '/' (default)
      --no-wildcards-match-slash exclude pattern wildcards do not match '/'
  -P, --absolute-names         don't strip leading `/'s from file names
  -h, --dereference            dump instead the files symlinks point to
      --no-recursion           avoid descending automatically in directories
  -l, --one-file-system        stay in local file system when creating archive
  -K, --starting-file=NAME     begin at file NAME in the archive
  -N, --newer=DATE             only store files newer than DATE
      --newer-mtime=DATE       compare date and time when data changed only
      --after-date=DATE        same as -N
      --backup[=CONTROL]       backup before removal, choose version control
      --suffix=SUFFIX          backup before removal, override usual suffix

Informative output:
      --help            print this help, then exit
      --version         print tar program version number, then exit
  -v, --verbose         verbosely list files processed
      --checkpoint      print directory names while reading the archive
      --totals          print total bytes written while creating archive
  -R, --block-number    show block number within archive with each message
  -w, --interactive     ask for confirmation for every action
      --confirmation    same as -w

The backup suffix is `~', unless set with --suffix or SIMPLE_BACKUP_SUFFIX.
The version control may be set with --backup or VERSION_CONTROL, values are:

  t, numbered     make numbered backups
  nil, existing   numbered if numbered backups exist, simple otherwise
  never, simple   always make simple backups

GNU tar cannot read nor produce `--posix' archives.  If POSIXLY_CORRECT
is set in the environment, GNU extensions are disallowed with `--posix'.
Support for POSIX is only partially implemented, don't count on it yet.
ARCHIVE may be FILE, HOST:FILE or USER@HOST:FILE; DATE may be a textual date
or a file name starting with `/' or `.', in which case the file's date is used.
*This* `tar' defaults to `-f- -b20'.

Report bugs to <bug-tar@gnu.org>.

zen consultora

Blogger Widgets

Entrada destacada

Platzy y el payaso Freddy Vega, PLATZI APESTA, PLATZI NO SIRVE, PLATZI ES UNA ESTAFA, Platzy and the Clown Freddy Vega, PLATZI SUCKS, PLATZI IS A SCAM

  Platzy and the clowns Freddy Vega and Cvander – Part 1, PLATZI IS A SCAM Hello friends, this post will keep growing as I continue writing...