~ubuntu-branches/debian/sid/pftools/sid

« back to all changes in this revision

Viewing changes to src/Fortran/recmd.f

Committer: Package Import Robot
Author(s): Andreas Tille
Date: 2017-03-31 14:01:39 UTC
Revision ID: package-import@ubuntu.com-20170331140139-povxg86r196gejfa

Tags: upstream-3+dfsg

Import upstream version 3+dfsg

files added:

AUTHORS

COPYING

ChangeLog

Makefile.am

NEWS

README

configure.ac

data

data/CVPBR322

data/GTPA_HUMAN

data/MYSA_HUMAN

data/R76849.seq

data/blosum100.cmp

data/blosum30.cmp

data/blosum45.cmp

data/blosum50.cmp

data/blosum62.cmp

data/blosum65.cmp

data/blosum80.cmp

data/coils.prf

data/ecp.prf

data/gonnet.cmp

data/pam120.cmp

data/pam160.cmp

data/pam200.cmp

data/pam220.cmp

data/pam250.cmp

data/pam30.cmp

data/pam40.cmp

data/pam400.cmp

data/pam80.cmp

data/pfam_sh3.hmm

data/pfam_sh3.prf

data/prosite13.prf

data/score.lis

data/sh3.gpr

data/sh3.msf

data/sh3.prf

data/sh3.seq

data/standard.random

data/test.out

data/test.sh

doc/profile.txt

man/2ft.1

man/6ft.1

man/gtop.1

man/htop.1

man/pfmake.1

man/pfscale.1

man/pfscan.1

man/pfsearchV2.1

man/pfw.1

man/psa2msa.1

man/ptof.1

man/ptoh.1

src/C

src/C/Makefile.am

src/C/generic

src/C/generic/heuristic.c

src/C/generic/xali1_old.c

src/C/generic/xalip.c

src/C/include

src/C/include/profile.h

src/C/include/sequence.h

src/C/include/system.h

src/C/prg

src/C/prg/numa_threads.h

src/C/prg/pfsearch.c

src/C/prg/testHeuristic.c

src/C/prg/testHeuristicMatchDeletion.c

src/C/prg/testXali1.c

src/C/prg/testheader.c

src/C/prg/threads.h

src/C/sse2

src/C/sse2/heuristic_sse2.c

src/C/sse2/sse2_inline_fcts.h

src/C/sse2/xali1_sse2.c

src/C/sse2/xalip_sse2.c

src/C/sse2/xalit_sse2.c

src/C/sse41

src/C/sse41/heuristic_sse41.c

src/C/sse41/xali1_sse41.c

src/C/sse41/xalip_sse41.c

src/C/sse41/xalit_sse41.c

src/C/utils

src/C/utils/Normalization.c

src/C/utils/ReadSequence.c

src/C/utils/io.c

src/C/utils/output.c

src/Fortran

src/Fortran/2ft.f

src/Fortran/6ft.f

src/Fortran/CFAve.f

src/Fortran/CPAve.f

src/Fortran/Makefile.am

src/Fortran/NtoR.f

src/Fortran/RtoN.f

src/Fortran/Xblnk.f

src/Fortran/abini.f

src/Fortran/ardim.f

src/Fortran/avdat.f

src/Fortran/codat.f

src/Fortran/cvini.f

src/Fortran/dfdat.f

src/Fortran/dfnul.f

src/Fortran/djdat.f

src/Fortran/gsdat.f

src/Fortran/gtop.f

src/Fortran/hmdat.f

src/Fortran/htop.f

src/Fortran/io.c

src/Fortran/lblnk.f

src/Fortran/nodat.f

src/Fortran/pfdat.f

src/Fortran/pfind.f

src/Fortran/pfmake.f

src/Fortran/pfscale.f

src/Fortran/pfscan.f

src/Fortran/pfsearch.f

src/Fortran/pfsearchV2.f

src/Fortran/pfw.f

src/Fortran/pmali.f

src/Fortran/prali.f

src/Fortran/prsp.f

src/Fortran/prxp.f

src/Fortran/psa2msa.f

src/Fortran/psdat.f

src/Fortran/ptof.f

src/Fortran/ptoh.f

src/Fortran/pxdat.f

src/Fortran/recmd.f

src/Fortran/regpr.f

src/Fortran/remsa.f

src/Fortran/remsf.f

src/Fortran/reprf.f

src/Fortran/reseq.f

src/Fortran/rfseq.f

src/Fortran/rhmmer.f

src/Fortran/rhmmer2.f

src/Fortran/rhnul.f

src/Fortran/schmm.f

src/Fortran/sterr.f

src/Fortran/wprsm.f

src/Fortran/wrhmr.f

src/Fortran/wrprf.f

src/Fortran/wrsam.f

src/Fortran/xali1.f

src/Fortran/xalip.f

src/Fortran/xalit.f

src/Fortran/xprsm.f

Show diffs side-by-side

added added

removed removed

src/Fortran/recmd.f

*----------------------------------------------------------------------*

* $Id: recmd.f 150 2003-07-03 13:08:58Z vflegel $

*----------------------------------------------------------------------*

* Version: File under developpment for release 2.3

*----------------------------------------------------------------------*

Subroutine RECMD(RCEX)

Character*(*) RCEX

Character*512 CARG

Character*512 CMDL

LCMD=LEN(RCEX)

* Concatenate arguments of command-line

N=Iargc()

IC=1

Do I1=0,N

Call GetArg(I1,CARG)

CMDL(IC:)=CARG

IC=Lblnk(CMDL)+2

End do

RCEX=CMDL

If(IC.GT.LCMD) RCEX(LCMD-1:LCMD)='..'

Return

End

Older »