This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#include<stdio.h> | |
int main(){ | |
printf("Hello World!\n"); | |
return 0; | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
LOGICAL FUNCTION ELCTG( ) | |
ELCTG = .TRUE. | |
RETURN | |
END | |
PROGRAM PROFILE_GGES3 | |
IMPLICIT NONE | |
LOGICAL :: ELCTG | |
INTEGER :: LWORK, INFO, N, I, J, SDIM |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
PROGRAM testSVD | |
IMPLICIT NONE | |
INTEGER M, N, LDA, LDU, LDVT, NS, LWORK, INFO | |
PARAMETER ( M = 5, N = 5, LDA = 10, LDU = 10, LDVT = 10 ) | |
INTEGER IWORK( 12*MIN(M,N) ) | |
DOUBLE PRECISION A( LDA, N ), S( MIN(M,N) ), | |
$ U( LDU, N ), VT( LDVT, N ), WORK( 2000 ) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// Copyright 2021 Weslley S Pereira | |
#include <cmath> | |
#include <limits> | |
#include <iostream> | |
#include <bitset> | |
using Integer = std::int32_t; | |
extern "C" { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#! /usr/bin/python | |
''' switchHeadphones.py | |
Tkinter toggle button to switch microphone On/Off using a script | |
Modification of the solution proposed in | |
https://www.daniweb.com/posts/jump/1909448 | |
for the Mic On/Off script from | |
https://gist.github.com/OndraZizka/2724d353f695dacd73a50883dfdf0fc6 | |
''' |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
PROGRAM test_roundup | |
IMPLICIT NONE | |
INTEGER(8) X, Y | |
REAL SROUNDUP_LWORK | |
DOUBLE PRECISION DROUNDUP_LWORK | |
EXTERNAL SROUNDUP_LWORK, DROUNDUP_LWORK | |
INTRINSIC CEILING, FLOOR |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
*> \brief zdiv tests the robustness and precision of the double complex division | |
*> \author Weslley S. Pereira, University of Colorado Denver, U.S. | |
* | |
*> \verbatim | |
*> | |
*> Real values for test: | |
*> (1) x = 2**m, where m = MINEXPONENT-DIGITS, ..., MINEXPONENT-1. Stop on the first success. | |
*> Mind that not all platforms might implement subnormal numbers. | |
*> (2) x = 2**m, where m = MINEXPONENT, ..., 0. Stop on the first success. | |
*> (3) x = OV, where OV is the overflow threshold. OV^2 overflows but the norm is OV. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
*> \brief zabs tests the robustness and precision of the intrinsic ABS for double complex | |
*> \author Weslley S. Pereira, University of Colorado Denver, U.S. | |
* | |
*> \verbatim | |
*> | |
*> Real values for test: | |
*> (1) x = 2**m, where m = MINEXPONENT-DIGITS, ..., MINEXPONENT-1. Stop on the first success. | |
*> Mind that not all platforms might implement subnormal numbers. | |
*> (2) x = 2**m, where m = MINEXPONENT, ..., 0. Stop on the first success. | |
*> (3) x = OV, where OV is the overflow threshold. OV^2 overflows but the norm is OV. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
/** Defines structures that check if opts_t has an attribute called member. | |
* | |
* has_member<opts_t> is a true type if the struct opts_t has an attribute called member. | |
* has_member_v<opts_t> is true if the struct opts_t has a member called member. | |
* | |
* @param member Attribute to be checked | |
* | |
* @see https://stackoverflow.com/questions/1005476/how-to-detect-whether-there-is-a-specific-member-variable-in-class | |
*/ | |
#define MEMBER_CHECKER(member) \ |