Subroutine or Function Summary Post: 302978930

Sponsored Content

Top Forums Shell Programming and Scripting Subroutine or Function Summary Post 302978930 by kristinu on Friday 5th of August 2016 07:15:30 PM

08-05-2016

Registered User

I tried the following code expecting to get

Code:

 
 Function str_numeric  &
   (                   &
     s, fmt, mold      &
   )                   &
     Result (b)
   !
 Logical :: b
 Character (len=*), Intent (in) :: s, fmt
 Class (*), Intent (in) :: mold

However awk prints beyond the line

Code:

 Class (*), Intent (in) :: mold

Here is the file

Code:

 
!$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

 !> \brief Determines if a string is numeric.
 !
 !> \par Example
 !> \code{.f} 
 !>    Character (len=8) :: s;  Logical :: isnum; 
 !> \endcode
 !
 !> \param[in] s     String.
 !> \param[in] fmt   Format descriptor.
 !> \param[in] mold  Scalar or an array of any type. 
 !
 !> \result    True if string represents a numeric value. 

 Function str_numeric  &
   (                   &
     s, fmt, mold      &
   )                   &
     Result (b)
   !
 Logical :: b
 Character (len=*), Intent (in) :: s, fmt
 Class (*), Intent (in) :: mold

 Real :: r
 Integer :: i
 Double Precision :: d

 Character (len=65) :: frmt
 Integer :: ios

Last edited by kristinu; 08-05-2016 at 09:44 PM..

kristinu

View Public Profile for kristinu

Find all posts by kristinu

8 More Discussions You Might Find Interesting

1. AIX

Using the passwdpolicy() subroutine.

Okay, so in AIX, there are various subroutines that is built in to the OS. The subroutine is I want to use is passwdpolicy(). So I want to construct a C program that will be able to pass credentials into the program and thusly into the subroutine. I'm not asking for homework, or for someone to...

2. Programming

Subroutine Hung

Hi friends I am Administrator for a system works with uinx OS but, many times I get messages from server console inform me about Subroutine is Hanging so what can I do to reset this Subroutine? Note: always when I got that I restart the server but I think that is not professional solution.

3. Shell Programming and Scripting

Using Subroutine / Function in case statement

I have issue running functions under case statement #!/bin/bash single() { Commands } multiple() { Commands } until ; do echo -e " \t \t M A I N - M E N U Perforce delete script \n"

4. Shell Programming and Scripting

Running more than one function from a subroutine

Hi All I am new to perl so had one question. I have one Subroutine which works as expected and below is just an example. where I ran a command and check the output. so my question is if I have more than one command then how to check the results, meaning I want to add more command and check...

5. Shell Programming and Scripting

getopts not updating from subroutine.

So, I'm running a script with a couple of subroutines, one of which takes arguments using getopts. The first time i call the subroutine everything works as expected, the second time I call it none of the arguments change. Here's a small section of code that shows this behavior. #!/bin/sh...

6. UNIX for Dummies Questions & Answers

Help with Subroutine

Okay I have a 1TB drive that is almost completely full with vids. I am in the process of converting them to mp4. I have two scripts right now. One is a shell script to convert them with Handbrake. The other is a script to get a sort of progress report. To make things easier to understand, I will...

7. Shell Programming and Scripting

Passing parameters to bash script function (or subroutine)

I've found a few posts regarding passing parameters to a function or subroutine, but for some reason when I try to run a command based on part with these parameters it's not working. If I have the function echo the parameters they show correctly so I believe they are being passed right but the...

8. Shell Programming and Scripting

How to convert FORTRAN subroutine to awk function?

Hi All I am trying to convert some Fortran subroutine to awk function , those who know kindly explain how to define function in awk, and how to call function Fortran subroutine looks somewhat like this SUBROUTINE GDATE (JD, YEAR,MONTH,DAY) C C---COMPUTES THE GREGORIAN CALENDAR DATE...

LEARN ABOUT PHP

numfmt_get_attribute

NUMFMT_GET_ATTRIBUTE(3) 						 1						   NUMFMT_GET_ATTRIBUTE(3)

NumberFormatter::getAttribute - Get an attribute

	Object oriented style

SYNOPSIS

       public int NumberFormatter::getAttribute (int  $attr)

DESCRIPTION

	Procedural style
       int numfmt_get_attribute (NumberFormatter  $fmt, int  $attr)

	Get  a	numeric  attribute  associated with the formatter. An example of a numeric attribute is the number of integer digits the formatter
       will produce.

PARAMETERS

	      o $fmt
		-NumberFormatter object.

	      o $attr
		- Attribute specifier - one of the  numeric attribute constants.

RETURN VALUES

	Return attribute value on success, or FALSE on error.

EXAMPLES

       Example #1

	      numfmt_get_attribute(3) example

	      <?php
	      $fmt = numfmt_create( 'de_DE', NumberFormatter::DECIMAL );
	      echo "Digits: ".numfmt_get_attribute($fmt, NumberFormatter::MAX_FRACTION_DIGITS)."
";
	      echo numfmt_format($fmt, 1234567.891234567890000)."
";
	      numfmt_set_attribute($fmt, NumberFormatter::MAX_FRACTION_DIGITS, 2);
	      echo "Digits: ".numfmt_get_attribute($fmt, NumberFormatter::MAX_FRACTION_DIGITS)."
";
	      echo numfmt_format($fmt, 1234567.891234567890000)."
";
	      ?>

       Example #2

	      OO example

	      <?php
	      $fmt = new NumberFormatter( 'de_DE', NumberFormatter::DECIMAL );
	      echo "Digits: ".$fmt->getAttribute(NumberFormatter::MAX_FRACTION_DIGITS)."
";
	      echo $fmt->format(1234567.891234567890000)."
";
	      $fmt->setAttribute(NumberFormatter::MAX_FRACTION_DIGITS, 2);
	      echo "Digits: ".$fmt->getAttribute(NumberFormatter::MAX_FRACTION_DIGITS)."
";
	      echo $fmt->format(1234567.891234567890000)."
";
	      ?>

       The above example will output:

       Digits: 3
       1.234.567,891
       Digits: 2
       1.234.567,89

SEE ALSO

       numfmt_get_error_code(3), numfmt_get_text_attribute(3), numfmt_set_attribute(3).

PHP Documentation Group 												   NUMFMT_GET_ATTRIBUTE(3)

8 More Discussions You Might Find Interesting

1. AIX

Using the passwdpolicy() subroutine.

Discussion started by: syndex

2. Programming

Subroutine Hung

Discussion started by: bintaleb

3. Shell Programming and Scripting

Using Subroutine / Function in case statement

Discussion started by: sriram003

4. Shell Programming and Scripting

Running more than one function from a subroutine

Discussion started by: tannu

5. Shell Programming and Scripting

getopts not updating from subroutine.

Discussion started by: dhibbit

6. UNIX for Dummies Questions & Answers

Help with Subroutine

Discussion started by: Dalton63841

7. Shell Programming and Scripting

Passing parameters to bash script function (or subroutine)

Discussion started by: withanh

8. Shell Programming and Scripting

How to convert FORTRAN subroutine to awk function?

Discussion started by: Akshay Hegde

LEARN ABOUT PHP

numfmt_get_attribute